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TECHNICAL MEMORANDUM X- 64862 


GSE DATA MANAGEMENT SYSTEM 
PROGRAMMERS7USERS' MANUAL 

SECTION L INTRODUCTION 


The Ground Support Equipment (GSE) Data Management System ( DMS) 
is a computer program that was developed to provide a central storage source 
for key data associated with mechanical GSE. The system is fast, accurate, 
and is easy to use by noncomputer- oriented individuals. This document 
describes the program and how to use it. 

The GSE DMS takes large amounts of GSE data and sorts it alpha- 
numerically (by letter and number) into various categories. For example, a 
typical user of the program might want a presentable tabular listing of all GSE 
in the Skylab project associated with a particular vehicle module, such as the 
Orbital Workshop (OWS) . Corresponding GSE attributes [ End Item ( El) 
numbers, descriptions, quantities, fluid media, etc. ] are displayed as a 
major part of this listing. There is a total of eight different types of computer 
printouts currently available to the user. Seven of these consist of GSE data 
that have been sorted alphanumerical ly under a particular catagory. The 
previous example, Skylab OWS, would be found under what is known as a 
Stage Sort. Other sort categories include groupings by fluid media, functional 
code, class code, applicable document, and use location. The other printout 
available is the master summary table. It is basically an executive inventory 
list of all the GSE data that are currently in the data bank. Section II, 

Program Operations Instructions, provides the procedures for data card input 
format and defines the various program options. Section III illustrates the 
various example outputs and describes the error and user messages that are 
included in the GSE DMS, Section IV, Program Aspects, is intended for those 
individuals who wish to know more about the computer program itself and 
it has a general explanation of the internal operations of the computer 
program. Also included in this section is a procedure on how to make 
temporary or permanent changes to the program. 



SECTION II. PROGRAM OPERATION INSTRUCTIONS 


The Ground Support Equipment ( GSE) Data Management System ( DMS) 
is designed for execution by the Marshall Space Flight Center ( MSFC) Univac 
1108 Exec VIII Computer System. The GSE Data Management System consists 
of Fortran programming and a current GSE data bank. For convenience of the 
user, the complete system has been stored on magnetic tape to permit acces- 
s ability from remote- site operation. 

The GSE Data Management System is capable of performing eight 
different major types of sorts using the GSE data bank. The GSE data bank 
may have data added, updated, and/or deleted as required by the user. If 
these changes are to be permanent, the user can have a new tape made con- 
taining the revised GSE data bank. 


Control Card Description 

Figures 1 and 2 show the control card deck setup required for execu- 
tion of the GSE Data Management System. The deck indicates the location for 
GSE data cards when applicable and the location of the instruction data cards 
for sort requests. It is imperative that the control cards (cards with the 
sign punched in column l) be punched correctly and placed in the sequence as 
shown in Figures 1 and 2. 

Run card no. 1, first control card, is the accounting and identification 
card for the computer run. Certain user information must be supplied on this 
card and these parameters will be explained in the remainder of this section. 
SAMPLE is the run I. D. code and may be any six letter combination assigned 
by the user and AAAAAA is a six digit number which is the accounting job 
number assigned to the user. NAMEXX is the programmer's name in six 
characters, XYZ returns the computer run to the programmer’s BIN number, 

3 is the maximum central processing unit (CPU) run time expected, and 200 
represents the maximum number of pages of output expected. Run card no. 2, 
a special preprinted green card, is a duplicate of the first card. Appendix C 
gives the details of completing this control card. A four or five digit number, 
represented by BBBBB on the third control card, is die current reel number 
of the magnetic tape which contains the GSE Data Management System. The 
current tape number can be obtained from the publishing organization. The 
remaining control cards should be exactly as shown. 
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Figure 1. Control card deck setup 
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Figure 2. Pictorial control card deck setup 



GSE Data Card Input 

The GSE data bank may have data added, updated, and/or deleted. If 
no GSE data are to be added, updated, and/or deleted from the data bank, one 
blank computer card must be placed between the @ DATA, IL 2 and @ END 
control cards. To add a new item of GSE to the data bank or to update an 
existing item of GSE in the data bank, the set of cards for each item must 
follow the card formats described in Appendix A. To delete a piece of GSE 
from the data bank, one card must be prepared. In column 1 of a computer 
card the number 1 must be punched and beginning in column 7 the El number, 
exactly as it was originally entered into the data bank, must be punched. The 
remainder of the computer card must be left blank. It is suggested that any 
deletion cards be placed before any new and/or updated GSE data cards. 
Figure 3 shows a control card deck with a deletion and an addition to the GSE 
data bank; however, any single option or combination of the three options is 
allowable. 


Program Instruction Data Input 

The program instruction data consists of two types of data cards. 
Type # 1 contains the date of the computer run and an option of whether or not 
a new GSE Data Management System tape is to be created. T 3 pe #2 is the 
code mnemonic, for the sort to be performed. 

TYPE #1 INSTRUCTION DATA CARD 


In columns 1 through 8 inclusive, the user must punch the date that is 
desired to be printed on the output tables. The date should follow the format 
shown in Figure 3. This date will also be recorded with any new GSE data 
that have been added to the master data file. If a new GSE Data Management 
System tape is desired because of a GSE data revision or other change, punch 
a T in column 11 of this same card. If no tape is desired, punch only the date 
and leave the remainder of the card blank. Only one T 3 pe #1 instruction data 
card is allowed in a control card deck. Figure 3 shows an example of Type 
#1 instruction card with no tape being created. 

TYPE #2 INSTRUCTION DATA CARP( S) 

Each Type #2 data card specifies a sort selected for output. One Type 
#2 data instruction card is required for each sort, but the user may place as 
many as eight of these cards in each control card deck. Special codes punched 
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Figure 3. Control card deck with GSE data input and all program instruction data types 



on these cards contain the necessary information to perform the desired sort. 
The sort code mnemonics that the user must use are listed below; 


Sort Code Mnemonic 

T 3 T)e of Sort 

SUMARY 

Master Summary Table 

STAGE 1 

Stage Sort 1 

STAGE2 

Stage Sort 2 

MEDIAS 

Fluid Media 

FUNCTL 

Functional Code 

CLASSC 

Class Code 

USELOC 

Use Location 

APPDOC 

Applicable Document 


Explanations of each of the sort types and the type of output are given in 
Section IE. 

For the Master Summary Table, Stage Sort 1, or Stage Sort 2 sorts, 
punch their mnemonic code beginning in column 1 of a computer card and leave 
the remainder of the card blank. When requesting the Fluid Media, Functional 
Code, Class Code, or Use Location sorts, punch their mnemonic code begin- 
ning in column 1 of a computer card. Since there are multiple classifications 
within each of these four sorts, a second t 3 T>e of code is also required which 
specifies detailed information about the sorts. This code is punched beginnir^ 
in column 11 of the same computer card and is known as the Descriptor Code. 
The remainder of the card is left blank. The Descriptor Codes for each of 
these sorts can be found in Appendix A in the discussion of their use in pre- 
paring GSE data for the GSE data bank. These codes are used to provide 
detailed information about the GSE and must be used to relocate this informa- 
tion during these sorts. For the Applicable Document Sort, punch the 
mnemonic code beginning in column 1 of a computer card, and beginning in 
column 11 punch the document number to be searched for during the sort. 
Figure 3 shows an example of each of the eight possible sorts. 

For Fluid Media, Functional Code, Class Code, Use Location, and 
Applicable Document sorts, multiple sorts of each can be requested. For 
example, Four Fluid Media sorts could be performed using one control card 
deck by punching a different Descriptor Code on each of four MEDIAS sort 
request cards. However, a maximum of eight sort requests are allowed. 
Figure 4 shows an example control card deck with four Fluid Media and two 
Applicable Document sorts. 
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Figure 4. Control card deck with multiple sorts of the same mnemonic code. 



SECTION 1 1 [. SAMPLE OUTPUT 

Eight different types of sorts are. available for selection to generate 
the outputs from- the GSE Data Management System. The user can request 
sorts by stage groups, flnid media, functional operation, ground operation 
class, use location, and applicable document. A summary of the available 
records in the mas tier data bank can also be outputed. The total system is a 
user oriented retrieval method that can display various types of GSE charac- 
teristics on diffe.rent output formats. 

The GSE Data Management System provides error messages and user 
messages that can be encountered as part of the program’s output. These 
messages are associated with the GSE attribute data, sort requests, and tape 
option. ' 


Description of Sort Types 

The Master Summary Table provides the user with a complete listing 
of all records contained in the data bank. The table contains the El number, 
program title, stage name, and reference date. Figure 5 is an example page 
of the Master Summary' Table output. This table permits one to determine 
when a particular El was last updated or changed. 

The Stage Sort 1 and Stage Sort 2 outputs are listed by program type 
and stage, module, or system. The Stage Sort 1 output lists for each El 
number the description, class code, functional code, use location, and 
associated applicable documents. The Stage Sort 2 output lists for each El 
number the description, fluid media, weight, length, width, height, quantity, 
unit cost in purchase year, and design responsibility. Figure 6 is an example 
page of the Stage Sort One Table output, and Figure 7 is an example page of 
the Stage Sort Two Table output. A complete listing of all entities contained 
in the data bank is obtained when Stage Sort One and Two is requested. 

The Fluid Media sort provides an output table which contains a com- 
plete list of all GSE containing the specified t 3 q>e of fluid media. The Media 
Sort Table output for the requested fluid media contains for each item of GSE 
the El number, description, function code, wieght, length, width, height, 
quantity, unit cost in purchase year, and design responsibility. Figure 8 
shows an example 'page from a Media Sort Table output. The functional code 
sort provides an output that contains a complete list of GSE that services a 
particular operational requirement. When a specific operational requirement 
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Figure 5. Example page of Master Summary Table. 

is specified, the output table contains the El number, description, fluid media, 
weight, length, width, height, quantity, unit cost in purchase year, and design 
responsibility for each item of GSE that performs the function. Figure 9 shows 
an example page from a Functional Sort Table output. 
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OH/ I «/73 


SATURN PiiiOjLCT 
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S-M stage 


(-1 NUM^lEK 

UtSCH 1 HT.IUN . 

CLASS 

CODE 

KUMCT I oM AL 
CODE 

USE 

LOCATION 

APPL 1 CABLE 
DOCUMENTS 

G J B 

S7-Hlrt PNEUKA.TIC. COmSUL t--E NCLOStO 
ST A T I ONaKe Y , PUkGLL) Uf^lT CONTAINING 
Ah^ilRNT TtMPEKATUhft PUPUMATJC SYSTEM 
SUPPHEO FROM ThE A rONSOlE* TME 
P CONSOLE PROVIDES fJErtOTl / COMPUTER 

. controlled phessuk I / at 1 on of the 
S-1 I, STAGE SYSTEMS,. 

1 

PNtUMA 

ksc.spf .mtf 

CE M 8 1 MOQZA 
65 IC0979 1 
67-98473 1 
MSf C-MA m-OSB 
67-9851 H I 
4 0 H n 7 D 3 
4 U M 1 1 7 2 S 
65 1 tOvZOO 
65 I CDV2D2 

b/-tibH60tj-4it 

S7-HIC pneumatic consul I>-ENtLUSEt) 
STA T I UNAR Y , PURGED UNIT CONTAINING 
AheiENT temperature PNfUMATIC SYSlEh 
SUPPUEO f ROM THE A rONSOLt, THE 
-C CUNSOLE PROvlUE^ S»1I STAGE 

PURGING AND checkout KUNCTJONS ANO 
control pressure for STAGE COMpuNEMT 
AC TUAT I ON* 

I 

PNtUMA 

KSC iSDF ,MI F 

CEI IBIMOUZa 
651CD979 1 
67-984731 
MSEC -MAN -058 
67-985143 
40M1 1703 
4Uh I 1725 
651C0920D 
6SICD92U2 

G /-BbHbOfl-H \ u 

57-410 pneumatic consol t-'-OPEN- 
SYSTEMS supplied from THF A CONSOLE 
AMU paciLity. the D console filters* 
. regulatfs ♦and distributes Gases. 
THROIJOH the a 7-7I MtAT EXCHANGER^ TO 
THE S-M STAGE F.NGImE sTaRT GOTTLES, 

1 

PNEUMA 

KSC »SDP »«1F 

CE 1 1 aiMOOZA 
65K09791 
67-984731 
M$rc-HAN-D58 
07-98514 1 
40M1 1 703 
40M 1 1725 
651C09200 
65IC092U2 

G7-BSbU7I 

A7-7I MEAT EXCHANGER--STA T I ONaR Y 
LH2 »aTM type b.S. oLrtAft VeSSt*L. 
CONTAINS 3 CHILLING COIL CJRCUTS, 
CHILLED Gases used for J-2 engine 
H2 START BOTTLE AND STaGE HE BOTTLE 
CONDITIONING. A7-/I USED WITH SJ-hI 
A and D consoles* 

1 

PNEUMA 

KSC.MTF, 

CP362MDOOL A 
6S IC0979 1 
67-984071 
0-61 1 B64 
SM-S-2-1 8 
40111 1 703 
4DM1 1725 
65IC09200 
651C09202 


N/A OR NA - NOT APPLICABLE 

class COi'JES! J*bTAGt SY5TE<^S 2,PAY|QAn MODULE 3 • C KPER 1 ME N T 


Figure 6. Example of Stage Sort One Table. 


STA^e SORT TaO table 


DH/ i i»/73 


shuttle project 
Shuttle hath entCN, 
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ENVELOPE OIh' 


UNIT 

DESIGN 

et NunoER 

OESCKIPTI f>N 

HEDl A 

*T 


L 


* H GTT 

tl’i 

COST/TH 

RESPONSIBILITY 

Cul06RnOOlA A 

floa tester, pNEUHATir - athospheric 

GN2,HE 

TBO 

LB 

TBO 

IN 

TBO IN TDD IN G 

TBO_ 


ROCKETOYNC 


FnR space Shuttle hamw engine cssho 
NOTE: 


TRO 

KG 

tau 

CH 

TBO CH TBO CH 





LAST LCITfR IN El NUhrER INUICATES 
THE effective PERIOD OF CONTRACT 
(A IS FOR GSE USED IN ENGINE OEVELO- 






....... . ... 

— 

— 


C0106R0007A A 

PEKENT a IS FOR GSE USED IN FLIGHT . .. 
OPERATIONS) 


T80 




" ^ 

— 

— 

rocketdyne 

FLO* TESTER* PNEUnATlf - HIGH PRESS* ‘ 

HE 

LB 

TBO 

IN 

TBO InTbOTn 

-TOO' 



FOR SPACE SHUTTLE HAIn ENGINE fSSHE) 


T60 

KG 

TBD 

CH 

TBO CH TbO CH 





NOTE : 

LAST LETTER IN E| NUHaER INOICATeS 











THE EFPECTiVE PEHtOO nF COHTRACT 

IS FOR GSE USEO OEVEtO- 

PEhEht e IS FOR aSE u<;£J> In FLIGHT 


cuiogrooqta 

_ 

A leak detector* helIUh HASS SPEC* 

HE 

TBO 

to 

rao 

In 

TBO 

IN 

tbo IN a tbo 

rocketdyne 


FOR SPACE Shuttle haiw engine issme) 

note:. . , _ . . 


TBD 

K4. 

TBO 

CH 

TBO 

CM 

TOO CH 



LAST letter IR £i MUHnER INOICAtCS 

the effective pertoo nF contract^ 

lA 1$ FOR «SC USED IN E^OlNE DCVCLO* 
PFHEHT O is for GSE used IM fLlfiHT 
DPERATtOHS) 


cm’BZROoorrn 

TOOL 

set. SPECIAL FOR RPaCC SHOTTlE 

N/A 

tbD 

LI) 

TBD 

tM 

TBD 

IN 

TBO TN — n — TBO — 


htockctoync 


HA1N 

engine 


r«D 

KG 

T60 


TBD 

CH 

Tbo CH 




NOTEJ 

LA-ST iCTTER |H EE NUNaCm INOICATES 
THE effective PERIOD Of CONTRACT 
<A 15 for GSE used In EngINE DEVCUO-^ 
PEHErT B 15 FOR GSE u'^ED IN FLIGHT 
. OPERATIONS) 


N/A OR hlA • NOT APPLICABLE 


Figure 7. Example of Stage Sort Two Table 



MEUIA SUKT 1 A( 5 lE 


0^4/ 1 B/ 73 


ALU PROGRAMS 




page 1 


’ 

hfcLIUH 





£J number 


FUNCT 1 oral 

ENVELOPE DIM 


UN I T 

DESIGN 

DESCRIPTION 

CODE WT 

L »< M 

gTV 

COST / Yk 

responsibility 


C01C6R0001A A 


C01D6f<C0rJ2A A 


C&iO6ft00a3A A 


C020VRG001A A 



FLo»; TEsrrH i pnEunat j r athosphekic 
SPA te Shuttle maiai tN&ii'iE jssme> 
NOTE : 

LAST LETTER IW t| ^^U^^RF:k ILUItATFS 
THE EFFECTIVE Pfe’RlOu nf COKTRaCt’ ; 
<A is FOP fiSe USED EN(,IWL OtVELO- 
PEMENT B rS FOR GSE'usED IM FlIGHI 
QPEKAT lows J 

FLOift tester* PNEUriATlr - HIGH F^RESS, 
FOR SPACE SHUTTLE KAIh EWGHVt I SS^^t ) 
M)Tf : 

LAST letter in EI NUHRbR INOICaTES 
THE EfKECTlVE PEPlOO oF.fuMfiMCT 
(A IS For 6 5E USE.D In engine develo- 
PFPENT B IS FOR GSt U*j£U IN FLIGHT 
OPEKATiONSI 

leak DETEcTOFi, HELIUm HaSS SPEC. 

FOR SPACE Shuttle pain engine isshe) 

NflTF ; 

last LETTER IN EJ NUmrEK INOICATES 
TME effective PERlOO nF.ruNTKACT 
(A tS fOR GSt USFO IH ENf-lNC OEVELO-, 
PEF^ENT B IS FOR GSE UsEO IN FLIGHT 
OPERA T I ONS I 

console* ROCKET ENCJnF EiECTRJCAL 

PNEUMAT I C-ChECKO(JT f OP 

SPACE SHUTTLE MAIN k'Nf.lNF IbSMt) 

.note: 

.LAST LETTER IN El NUfiPtR INDICATES 
the effective PERrOO OF rOWTKACT 
I A IS FOR GSE used In ENGINE DEVELO"- 
PErtENT h IS FOR GSE U*;E0 IN FLlGhT 
OPFRAT IONS! 


TESTCH TBD ’ LR TB;)‘In TBL; in TbO in 6 TbU 

TRU KG TBU'CH TflO CM TbD CM 


TESTCH TbD lb T0O iN TrD IN TeO IK 6 T&U 

ThO K6 Tfao Cm T0O cm TBO cm 


TtSrCH TpP lb TBO IN TflO IN TBD IN 2 TbD 

T6D K6 T90 CK CM TgO CM 


TESTCH TbO lb TBO iN TBD IN TbD In 2 TSU 

ThD kg T0D CM TeO CM TBD CM 


ROcKETDYNfc 


rocketdyne 


POCKETDYNE 


ROCKETOYnC 


N/A OR NA - NOT applicable 


Figure 8. Example of Media Sort Table 


0 < 4 / I 8/74 


All pi^ogramc 


PAQ£ 3 


TfST-CHtCKOUT €«tJlPNtNT 


El NUHHEff 


DLSCfi iPTf 01 ^ 


Envelope dim unit design 

rtCOlA AT L ^ H DTT COST/Yfi RESPONSIBILITY 


C^ 2 A 7 R 000 Ia a 


CD2A7R0002A A 


TEST SET, SINGLE ROCiCpT pNGlNf FOk 
SPACE Shuttle main en^mf jSsnej 
NOTE l 

LAST LETTER IN El NUHrEK INDICATES 
THE EFfCCTlVt PfcKlOO (^¥ CONTRACT 
lA IS FOR GSE USFD iN ENGInE DEVElO- 

pememt h is for gse u<;eu in flight 

OPERATIONS > 

TEST SET, InSTaLLFO RoCkET EnGINE 

FOR SPACE Shuttle maim engine issmei 
note: 

LAST LETTER IN El NUHrCR INUICATES 

TNE effective period oF contract 

lA IS FOR 3SE USED IN ENGINE OEVELO- 
PFNEnT b IS FOR GSE UrEo IN FLIGHT 
OPERATlONSt 


C0395«a002A A COVERS • PROTECTIVE, ENGINE ThRUST 

_ chamber for space shuttle ha in 

engine (Ssme) 

__note: 

LAST letter in El NUnaEk IMOICaTCS 

THE effective PERtOO rtf CONTRACT 

fA 15 for GbE USED iN ENGINE OCVCLO* 
_ ^ I* ^ 0 ** UCEO IN flight 

OPERATIONS! 


H/A 


NFA 


N/A 


C 0 S 9 SfUlQD 3 A A PAD. PR 0 TCCT 4 VE^ThRUST CHAMBER N/A 

interior for space shhIti. e Main. 

TNG INC IS SHE! 

HOTES- 

last letter {N T 1 NUHrER inoicatcs 
the effective PCRIOO DF contract 

Ts FOR GS€ OSEO In CngInC DEV£L0- 
__ PCMENT • IS FOR GSE UsCu IN FLIGHT 

' operations I 


ThO lb TBu in TBO in TflO IN 2 TBO ROCKETDTNE 

TBD KG 10O CM T6U C« TbD CH 


T«0 LO T8D IN TBO IN TbO IN H TBD ROCKETOTnE 

TBO KG TBO CM TBD CN TbO CH 


TBO lb TBO In TBO IN TbO 1n II TBO ROCICETOTnE 

TBO KG TBD CH TBO CM TBO CH „ 


TBO LB TiO IN TbO |N TbO IN S TBD BOCKETOYhE 

TBO KG TBO CH TaO <H T&D CH 


N/A OR NA * NOT APPLICABLE 


Figure 9. Example of Functional Sort Table 



The class code sort option provides an output which contains a com- 
plete list of the GSE that supports the major hardware category specified. 

The El number, description, function code, stage, fluid media, quantity, and 
design responsibility for each item of GSE associated with the requested 
operation is contained in the output table. Figure 10 shows an example page 
from a Class Code Sort Table output. The use location sort option generates 
a complete list of all GSE that is used at a specific geographical location or 
facility. The output contains the El number, description, function code, 
weight, length, width, height, fluid media, and design responsibility for each 
item of GSE used in the specified location. Figure 11 shows an example page 
from a Use Location Sort Table output. The applicable document sort provides 
an output which contains all GSE that is referenced in the requested document. 
The output contains the El number, description, class code, function code, 
and associated applicable documents. Figure 12 shows an example page from 
an Applicable Document Sort Table output. 

User Messages 

The GSE Data Management System can have data added, updated, and/ 
or deleted from the data bank. When no GSE attribute data are to be changed, 
the message shown in Example 1 is printed showing that no changes occurred. 
The total number of GSE items in the data bank is also shown. 


#**GS£ attribute DATA FILE hAS 

BEEN 

updated*#* 

0 

NEwENTITIEs 



0 

updated entities 



0 

DELETED , ENT I T I ES 



17 1 

TOTAL ENTITIES USED DURING 

This 

RUN 


Example 1 

If any changes to the GSE attribute data have been included in the 
control card deck, the number of each specific type of change will be printed 
out along with the new total number of GSE items now in the data bank. 
Example 2 shows a total of five changes to the GSE data bank and the new 
total. 
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class code SONT 


U/24/72 


All programs 
6S£ T£SJ SOPl^ORT 


PASC 1 


E] NUNiiER 

OtSCRiPTlON 

f UNCTIOn 

coot 

stage 

mEOIA 

«TY 

DESIGN 

RESPUNSiaiLlTY 

Ct^0ZHQiZb\9 

S-iC PNEOMATIC PORTABLE TESTERS--* 

SIX Portable suitcases containing 

S«nCrt&S»lNOICATOK LIGHTS, AND 
HETERS uSCO In CMCCiCInG CONTInuITT 
OF ElECTKILAL cOHPONCnTS of TnE S*IC 

pneuratic console and The s«tc pnCu- 

I1ATIC ChECAUUI racks* 

TESTCH 

S-IC 

N/A 

16 

GtHUNTSVlLLE 

OS v-vyS 7d 

POMES CABLE REEL CART— THIS NOBILE 

Unit consists of storage heel, crank, 
f RAHE ,$EN1-PNCUNAT IC MHEELS»Tt.O 
MAFEK HOSES,ElCCTRICAL POmER CABLEi 
AND GUICE OlSCONNCCrS, THE UNIT IS 
USED 10 SUPPLY COOLING mATER AND 

electrical pu*lr to The 0sV«>IB-<|79« 

5EKVK 

S-IVB 

N/A 

a 

astn-sog 

22AI2O0A 

TESTEfi ASSTi hydraulic 
PEN f ORHANCE— A HObIlE UN | T CONTAIN- 
ING Ski rCHES»tN0lCA70K LlGHfSi 
cabled, ANO A NANIFOLO ASSEHBLY* 

THE TESTER simulates THE STEP 

Function flow neouirehents of the 
S*IC F-1 engines start SEQUENCE TO 
CHECKOUT The S-2C HYDRAULIC SUPPLY 
AND checkout Urt|T* 

TESTCH 

S-4C 

N/A 

01 

GEhIJnTSVILLE 

6Sa36AV3 

TESTER ASSY,FURAAR0 UMBILICAL 

TESTCH 

s-ic 

N/A 

03 

GEhUnTSVILLE 


CASE COMTAlMlMG SMI TCrtCS, INDICATOR 
Ll(iHrs»Mt^EKS^ANL> CAGl€& TO TEST 
THE S-IC FOkMARD UHBIUCAL SERVICE 

console* 


Figure 10. Example of Class Code Sort Table. 



USf location sqht TABLC 


QH/ 1 A/73 


ALL PROGRAMS 



PAGE 2 



MARSHALL center 






FUNCT IONaL 

envelope dim 


DESIGN 

tl NUMbfcK 

DEStftJPTInN 

code DVT 

L A h 

MEDIA 

RESPONSIBILITY 


DC9DM04BA7 


0C90MDN56B 


DS V-**B-2a6 


0SV-HB-2B6A 


FUTERNAL TANKjeT)LH2 tEST T A Mk STOS- T^aMSP 

APE CPADLE-USEr> TC 5UF-P0RT THE LhZ 
TEST TANK IN THE HORIZONTAL POSITION 
PUR1K6 PERIODS OF LC;i. ACTIVITY OR 
storage-constructed Or COHMtfiClAL 
GRADE STEEL St C T I 0 N5 , P L A T ES » A NO HARD 
I^Al^F,NO ROTATIONAL C A P Afej T L J T Y * C A h 6t 
disassembled FQk SHIPMENT 

EXTERNAL T aNk I ET »LOK TEST TANK 5T0R- TKANSP 

APt CRA0LE-05ED TO SUPPORT THE LOK 

TEST TANK IN THE HORIZONTAL POSITION 

CORING PERIODS OP LO« ACTIVITY OR 

STORAGt-CONSTftUCTEO OF COMMERCIAL 

grade STEEL SECT I DNS .PL ATES « AND HARO 

^ARC,NO rotational C APAbiL I TY .can bE' 

oisassembled por shipment 

pneumatic console P0RTA8I E TEST — ' TESTCH 

This model similar to DSV-**d-28GA 
ExttPT For I cen r I f 1 ca t I on and 

CHANGES IN ELECTRICAL CONNECTORS. 

THIS MODEL HAS SATURN IH EFFECTIVJTY 

pneumatic consoles portable test set testch 
THIS model consists OF THREE TEST 
and monitor SETS AND FOUR CABLE 
CASES. ALL CF THE SUITCASE TYPE* 

THE TEST AND HOM TOR SETS CONTAIN 
ELECTRICAL CONnECTORsI SAIJTCHES, 

CIRCUIT BREAKERS. FUSes*MFTEKS. AND 
INDICATOR LIGHTS* THf CaBLE CASES 
CONTAIN THE CABLES To F OWE R , CO« T ROL 
AND MONITOR aLL FUNCTIONS WITHIN 
THE DSV-4H-H32A ,DSV-HB-H33A 
and DSV-SB-R38A FOR TfST AND CHECK- 
OUT AND TO PROVIDE LOCAL CONTROL* 

THE MODEL HAS SATURN v EfF E C T I V I T Y * 


TBD lb TBO in T80 IN TbD IN N/A 

TfiO KG TBO CM TBO CM TbD CM 


TBO LB TbD IN TBD INTbD IN N/A 

T0O KG TBD CM TBO CM TBD CM 


HO LB 28 IN 28 iN 12 IN K/A 

A3KG 71CM 71CM 30CM 


IRO LB 2B IN 2B IN 12 IN N/A 

63K6 7ICM 7lCM 30CM 



S^E-ASTN-ETT 


sge-astn-ett 


MDAC-WO 


mdac-wo 


N/A OR NA - NOT APPLICABLE 


Figure 11. Example of Use Location Sort Table 



to 

o 


applicable OOCUMfcfMT SORT TABLE 


U'*/ J B/73 


LOCLrtCNT A&irU9?D0 
all PRO&Ka^*S 


PAGE 8 


tl 



CLASS 

functional 

applicable 

DE SCR 1 PI 1 OU 

CODE 

CODE 

documents 


6&0b04<i0l> 


ti B (1 0 - L o C tJ - II 


b74S0n 


HYLKaOlIC Porttw Uirfl T--ST AT I nN«RT 
i;uB-Ul>[T OF s-rc hydraulic supply 
and checkout unit* luntains pomps. 

MU]fiKS,VALYFS.CtAUeS.FtiTERS,Ar»D AM 
«C10 OrtLLUr- A-ESEKViOK FOM THE 
PLRPOil- Of <iTurt ING .COND * T lONl nC. 
f.UU ntl.IVLklRw KJ-l FLUJO ONDER 
PRtSSUhb' To 1 riE FIVE F-l ENOInES 
OF thl s-it staCiE uukiNo All ground 
phases of ioginl ano Flight 
-altoatok- rhirKOOT. 

OPOOf*u Sl^PPnPl COOLING UAitl^» 
LNCLQSEi>.P0w6£D .STaT IOHART UNIT 
COOTaIMNG a coolant KESER«Olr«* 
COLLaNT riArULATlON SUBSYSTEM* 
ht.FNiGFhAM SOBSYSlth. PUMPS. MOTORS. 
cuhpplssok.nohfpous gages* valves, 
heters.anu rONfROLs. ir ts used 

TO CONDITJOW iOCLAPT MEDIA FOR lU 
ANO S-IVB UL board COLO plates 
COLLING AND PLAT DISaPaTTON. 

PREFHL tJMT-*CONTA INS IIIVO 
separate SIaTIonaHY SUA'^ONlTSt 
P9299 b*hY0»* aUL 1C PUMPING UNIT aNO 

bViioo-cPtrAOuf console, usfd for 

DELlkfEKlKG fNEkT F L l> 1 0 TO Tr»t S^IC 
Si AGE F-l Ft-*GlNE JACNETS f'CK PRC- 
tGNI T ION F T| L luG. 


I StkVlL 6SICD9790 

6SUD9200 

GSG8Q30D0 

6SICD9202 

40MO&B3B 

MSFC-NAN-DOG 


I SEHVIL 6SICD9793 

MAN-008 
6BO0-O01 
ASIC092D2 
651CD9200 
HOn I I 8<I7 


1 SCHVIC A&ICD9790 

I591SS 

IS9I52 

6SIC09200 

6S1CD9202 

<(OHDD213 

MSFC-MAN-007 


8V299A hydraulic PiiPAMNg U.'. I T --S TmT I uN aK Y 

SUu-UPiT OF Ii.FRT PprriLL UMI. 
CUN'fftINS Vai Vt S .PUMP .tiO rOK .GAGES . 
ANU A 770 i; all ON FtUlD RE SLR VI OR. 
OSLO FOR SrnKlMfi AND PUHPlNG INERT 
f LIJIO- 


SERVIC 6SIC09790 

IS9I5B 
IS9152 
6S1C0V2OO 
6SIC09202 
ROM00213 
MSFC-MAN-007 


N/A JR .;a - NOT APPLiCABLF 

class tnutS* L.STagl Stsrtr.S 2.PAY1 OaO MJDULt i.FAPERiMFNT 


Figure 12. Example of Applicable Document Sort Table, 



attribute data FILE HAS BEEN UPDATED*** 
2 NC«i Entities* 

1 updated entities 

2 deleted entities 

133 total entities USED DURING THIS RUN 


Example 2 

At the end of each sort requested in the control card deck, a statement 
is printed stating to the user that the sort was completed. Example 3 is a 
simple statement from the completion of a Functional Code sort request. If 
a valid sort is requested for a GSE category that is not in the data bank, a 
message is printed stating the master file contained no data for the specified 
sort. If a sort was requested for the fluid media Freon and no Freon was used 
with any of the GSE items in the data bank, the message shown in Example 4 
would be printed out. 


**• completion of functional code sort *•• 


Example 3 


♦••master fjle contained no data with Freon fluid media sort*** 


Example 4 

When all the sorts associated with the control card deck ( maximum of 
eight) have been performed, a message is printed showing the number of sorts 
actually performed. Example 5 shows this statement when six sorts were 
requested. 


*•• THIS RUN completed 6 SORTS ♦*♦ 


Example 5 
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If the user has changed the GSE data bank, made programming 
changes, or has other reasons, a new tape can be made. When a new tape is 
correctly requested using the Type #1 instruction data card, a message is 
printed out stating a new tape was created. Example 6 shows this statement. 
Each tape has a number which must be placed on the third control card of a 
sort request deck. When a new tape is created, a four or five digit number 
of the tape is found at the end of the computer run which made the tape. 
Example 7 shows the location of a five digit number which was generated 
during this run. 


<<«< USER MESSAGE. •• AN OUTPUT TAPE HaS 

BEEN CREATED ON 

this run >>>>> 

Example 6 

Sort; r/«aaH2t5iiS, ic= oc» 

I illA= 1 t2 


H- SAVE dUANN 16/JH TAPt 

-1 S0720 


SERVICE t7/lH S0720 



*• 1 lo'/ovi 



TJMEJ Oo:Oi:U,J24 INJ 2 o8 

out; 0 

PAiiES: 152 

initiatiow Time: 2i;H7:2u-dAn 

iV, 1V73 


TERMiNMTiON TiME; 22 :uR;J7-JAN 

i7, 1 V73 



Example 7 


Error Messages 

Several types of errors can be made when making changes to the GSE 
data bank. When adding or updating the data bank, a set of four card types 
must be prepared. If one of the cards in these sets is placed out of order or 
punched incorrectly, a statement will be printed giving the number of the card 
in error. These card numbers are tabulated with an input listing of the data set 
printed out at the beginning of each run. Example 8 shows the result of sub- 
mitting five changes to the data bank with a card out of order or punched 
incorrectly in one set. The correct data sets will be incorporated. The 
message shown in Example 8 will also be printed when a deletion card is out of 
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order by being placed within the set of four card types for adding or updating of 
of the GSE data bank. When punching the project number on card Type #1 or the 
class code on card Type #2 of the four card types of the GSE attribute data, a 
character other than a number could possibly be used. If this should occur, the 
error message shown in Example 8 will be printed. An incorrect dollar sign 
( $ ) for a Type #1 continuation card, when adding or updating the GSE data bank, 
will also result in the error message shown in Example 8. 


• ♦ ♦ L 

RROK WHILE 

K L M L) 1 N Cj 

i 

IJ P u T FI 

L t 

2* 

♦ • 

« « « c 

A « U X 17 

IS our 


0 iX U £ K 

QK 

IS 

PUNCHtO InCOKKECTlY#** 

* ♦ u 

8E AlTrvidU 

T E 0 A T A 

F I 

L E H A !> 

tiLtN 

Updated*** 

I 

NEW £ H T I T 

IfcS 






1 

UPDATED E 

NT I T Its 






2 

ULLt. r L J E’ 

N T 1 T 1 1 S 






1 3 2 

T 0 T M L t N I 

IT 1 ES US 

E U 

D U N I N U 

tins 

NUN 


Example 8 

When adding or updating the GSE data bank, it is allowable to have up 
to 20 lines of description which consist of one Type #1 card and 19 Type #1 
continuation cards ( see Appendix A) . If more than 20 lines of description are 
used, the error message shown in Example 9 will be printed out. The data 
associated with this El number will not be placed in the data bank, but all 
correct data sets will be used. 


— 

***M0RE THAN 20 LINES OF OESCRIPTION AESOCIATEO WITH El NO, 05V-t*S-<)33 

» EXECUTION CONTINUING*** 


Example 9 

The Type #1 instruction data card contains the date of the computer 
run and an option of creating a new tape. If the date is of an incorrect format, 
the error in Example 10 will be printed. This error message will also be 
printed out if the Type #1 instruction data card is not placed in the computer 
card deck. This error will cause the run to be terminated. If a new tape is 
to be created, a T is punched in column 11 of the Type #1 instruction data 
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card. When an incorrect character is used, the error message shown in 
Example 11 is printed. The requested sorts will be performed, but a new 
tape will not be made. 

• EhROK Jn pROtiRAM 1 NS TRU C T I 0 l\i S 

• ..The date is missino. or is punched incorrectly**# 


Example 10 


ERROR [N tape option INSTRUCTION ‘..AN INCORRECT CHARACTER WAS USED 
NO TAPE created ON THIS RUN *•« 


Example 11 

Each of the Type #2 instruction data cards specifies a specific sort to 
be output. Of the eight possible sort types, the Master Summary Table, 

Stage Sort 1, and Stage Sort 2 data cards require a code mnemonic only. The 
Applicable Document Sort may have any document number as its descriptor 
code. The remaining four sorts require a code mnemonic and a descriptor 
code. Section II gives the details of preparing these cards. If a mnemonic 
code is incorrect, error messages stating that the mnemonic code is 
misspelled and that the computer is continuing to process the remaining sorts 
is printed out. Example 12 shows a sample of an incorrect mnemonic code. 


••• mnemonic name SUMMaR li MliSPELLEO*** 
*•• continuing to Process other sorts *•• 


Example 12 

The descriptor code of a sort request can also be in error. When a 
descriptor code is used that is not valid, see Appendix A for correct codes, 
the error message in Example 13 is outputed. In this example the fluid media 
LH 3 was requested. The correct fluid should have been LH 2 , therefore the 
error message was printed. 
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••♦OESCRIPTER NAME 

Example 13 

When requesting an Applicable Document Sort, a code mnemonic and a 
document number must be specified. If the document number used is not 
associated with any GSE items in the data bank, the message in Example 14 
will be printed. 

•**ERROR***DOCUMENT 5B555555S555 COULD NOT BE FOyNu*** 

Example 14 


LH3 in error*** 
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SECTION IV. PROGRAM ASPECTS 


Program Execution 

The GSE Data Management program consists of control cards, a main- 
line program, subroutines, and procedure tables used for execution by the 
Univac 1108 system. The following briefly explains each of these items and 
discusses their function in the program. It will be convenient to refer to 
Figure 13 showing the general overview of the complete program. 

The mainline program takes control over all other routines. The 
mainline reads in the program instruction data provided by the user on data 
cards and makes available such information to other routines. The first 
program instruction data card contains the date of the run and an optional 
variable that is used to determine whether to generate an output tape with new 
or updated data. If an invalid date is encountered by the subroutine DATECK 
an error message will be written and the run terminated. If GSE attribute 
information is to be added, updated, or deleted from the data base, subrou- 
tine UPDATE will be called fiom the MAINLINE. UPDATE uses four drum 
files. All information from the current tape is put on FILE 1. If there are 
any GSE attribute cards in the card deck run-stream, the data from these 
cards are put on FILE 2. UPDATE then uses FILE 3 as a working file, i. e. , 
all data from FILE 1 and FILE 2, whether it be duplicate or not, are all put 
on FILE 3. UPDATE then searches FILE 3 for the most current data and 
puts them on FILE 4. Updated data on FILE 4 are then used for the current 
nm and can be stored on a new user requested output tape. 

Up to eight different sets of sort mnemonic codes can appear on 
individual data cards following the initial data card. The MAINLINE deter- 
mines if such are valid names and converts then to an integer code. Subrou- 
tine MERGE is then called from the MAINLINE and uses this code to deter- 
mine which sort operation to perform. There are seven different types of 
sorts and a master summary table available. Each sort thus has a correspond- 
ing sort subroutine as contained in Table 1. 

Using the Univac Sort/Merge Package feature (see Program Charac- 
teristics) , each subroutine does the internal sorting logic. Furthermore, 
each sort subroutine has a peculiar group of routines that handle the printout 
logic. For example, subroutine PRINT2 handles the pure mechanics of 
printing the newly sorted GSE data for Stage Sort 2 including use of subroutines 
DIMMET, WGTMET, and RELALP for calculation of metric units; subroutine 
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Figure 13. Master program execution flow chart, 






TABLE. 1. SORT SUBROUTINE NAME FOR TYPE OF SORT 


Sort Subroutine Name 

Type of Sort 

MASTER 

Master Summary Table 

SORTl 

Stage Sort 1 

SORT2 

Stage Sort 2 

SORTS 

Fluid Media Sort 

SORT4 

Functional Code Sort 

SORTS 

Class Code Sort 

SORT6 

Applicable Document Sort 

SORT? 

Use Location Sort 


HEADS calls the appropriate heading subroutine for use by the respective print 
routine; subroutine HEADR2 prints the column headings and footnotes on every 
page of the sort. Subroutine LINCON determines whether to start writing on 
a new page or continue writing on the current page. This printout would be in 
presentable tabular listings displaying all GSE items found under Stage Sort 2. 
In similar fashion, the sequence of calls to PRINTl, HEADS, HEADRl, and 
LINCON will accomplish the printout logic for Stage Sort 1. 


Program Modification Procedures 

Each card of the current version of the GSE Data Management Program 
is catalogued by line entry number. This simplifies the procedure by which 
any temporary modifications can be made to the program if it is not entirely 
satisfactory to the program analyst. When making temporary changes, the 
line entry of each statement can be obtained from the left-hand column number 
of the current program listing (see Appendix B). 

Permanent changes can also be made to the program. Being modular 
in form, the program is flexible enough to incorporate major additions with 
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minimum effort. For example, assume that a type of sorting function is 
desired that is not currently available from the program. Through the use of 
several control cards, the program analyst can add those subroutines (sub- 
programs) that were designed to provide such extended capability. These 
additions would then be represented by several new block operations to be 
fitted on Figure 13. Refer to the discussion in the section on how to change 
or add Fortran subroutines. 


Changes to Program Procedures Tables 

Figure 14 is an example sheet from Appendix B that illustrates a 
typical catalogued listing from one of the program’s procedure tables. Notice 
that each statement has the catalogued computer number positioned to the 
extreme left of it. These catalogued listing numbers, as shown in Appendix 
B, will change if any Fortran routines or procedure tables are altered when 
permanent changes to the program have been made by the user. To temporar- 
ily modify any of these statements, the insert card method is used. This 
requires an insert card that may contain any of the following information: 

1. The location number of the statement to be replaced or modified 
( see Example 15) . 

2. The location number of the statement to be deleted entirely ( see 
Example 16) . 

3. The sequential location numbers of the statements to be modified 
( see Example 17) . 

4. The location numbers of the statement which modifications are to 
follow ( see Example 18) . 

All insert cards are punched beginning with a minus sign in card 
column one ( l) and must follow the procedure table control card in the lun- 
stream. Example 15 shows the procedure table control card and insert card 
setup. 


aaOOOaCL'JI l m U l I 1222227222233333 333 jm‘)H***l‘»‘K»‘(H&S 65 &!, 5 S 55 *<» 66 Ai 6 ii 6 777 T 7 777778 
I 23MS 67895 I23<(a678 70 l23s'i67R'?0l23H5A 7 tjf 2 1 23 c,SA/8?3J23*(547S9oI 231(567890 1 23^547890 

sJPOPtULF TAdLE,rA8Lt 

-Va ,98 . ... . 

• .’SHB •t'SoLIO ♦,*;<0CtCET«,* BST, ‘ 


-103. I 


♦,< SPA*,*Ct SHU«,*TTLE * 


Example 15 
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Eoo;** 

USTAOE pROC 




tble 

7 ^ 

0O7S 

c 





'••TBLE 

75 

UQ76 

c ♦ 

StASeNAhE t'RoCEDURE 

table . 


»TBLE 

76 

Q077 

c ♦ 





♦ tble 

77 

0078 

c * 

The iRRaT itssETLE* 

contains The various ose staoenahe titles 

• tble 

70 

0079 

c ♦ 





♦ TBLE 

79 

ooao 

c • 


variable 

definition , 


♦ tble 

8D 

00«l 

c • 





♦ tble 

81 

0082 

c • 





♦ tble 

B2 

0083 

c • 


NSTaSC 

THE number of STAOENAHES APPEARING IN 

• tble 

83 

OOSH 

‘ c • 



THIS table ♦ I 


♦ TBLE 

89 

Ooes 

c • 





♦ TBLE 

85 

0066 

c * 


routines That use xstaoe proc 


♦ TBLE 

86 

0087 

c • 





♦ TBLE 

67 

Q08B 

c » 



master 


♦ TBLE 

68 

0089 

c • 



h^aori 


♦tble 

89 

0090 

c • 



H£A0R2 


♦ tble 

90 

0091 

c •• 



SORTl 


♦ tble 

9i 

0092 

c • 



pRINTI 


• tble 

92 

0093 

c • 





♦ tble 

93 

0099 

c « • « 





♦ •♦tble 

99 

009S 


Integer 

SSETlE^ 100) 



TBLE 

95 

0096 


NsTAgE* 

12 



tble 

94 

0097 


OaTA QSETLE/t 

• »t*#UNKN< »•06N♦• *1* * 


tble 

97 

0098 


♦ 

.tSRB 

•^•S, R, « ,*B00STE* t*R ’ 


TBLE 

98 

0099 



.*ET 

♦ f ‘E xtern* ,*AL tan*,*k • 


TBLE 

99 

0100 

- 

- 

1 »SSNE 

* , tSHUTTL* 1 *E MAlN*i* ENGN, * 


TBLE 

100 

Old 


* 

|tA« 

*,* AIRtO'.’CK M00***ULE • 


TBLE 

101 

0102 



t«0«IS 

*,* orsit»,*au «or*,*kshop • 


TBLE 

102 

0103 


• 

*f ATM 

*, 'APOLLO*,' TELE.*,* MOUNT’ 


tble 

103 

0109 



• thPA 

•,« MOA ••• ♦ 


tble 

109 

0105 


« 

«tlU 

S* INSTR* t*U«ENT •#<UNIT * 


TBLE 

105 

0106 


« 


*,♦ S»IC *, 'STAGE *,' * 


TBLE 

106 

0107 


• 

»*S“|VB 

*,*S-lVb *, 'STAGE ',* • 


tble 

107 

0108 



• ♦S-^2 

•«' S»II *, 'STAGE *,' *F 


tble 

108 

0109 

c 


,TM|S SPACE IS FOR TmE CONTINUATION OF 

GSE descriptive TBLE 

109 

0110 

c 


t 



tble 

110 

Ul 11 

c 

« 

1 



tble 

1 1 1 

0112 

c 





tble 

1 12 

0113 

c 

• 

» 



tble 

113 

0119 

c 





tble 

119 

01 IS 

c 


• 



tble 

115 

0116 

c 

* 

f 



tble 

116 

Oil 7 

c 


,thIs space is for The continuation of 

GSE descriptive TSLE 

117 

01 18 

END 





TBLE 

118 


Figure 14 


Procedure table catalogue listing 



The statements that were in some way modified are identified as loca- 
tion Nos. 98 and 100. Note that on each insert card the location number is 
listed twice and there is a one to one replacement on the statement that was 
98. It should also be noted that all statements that are placed between the 
insert card and the succeeding insert card, if any, will replace the statement 
at location No. 100. Thus it would be possible to insert a finite number of 
statements at location No. 100 or, as Example 16 illustrates, delete a state- 
ment completely if no statement should follow the insert card. However, 
due to the logic and nature of the particular procedure table, location No. 96 
would have to be modified also, so as to reflect the correct number of items 
that would remain in that procedure table after the deletion. 


300003C?:;i l l 1 l U n l 222222222233333333 77 //?7?77« 

l23H567e''oi2 3M'jA73V3l23;j567H9ol23‘*5A7B9i3l23H5678’ai2iH56 7 8 9ol23‘*^i^lt’0123'<567e»o 
JPUPiULF TAfiLE ,TA3UE 
-96,96 

NSTAGt=l 1 
- IDJi 1 D3 


Example 16 

Example 17 shows how the user can modify all statements between and 
including 99 through 102. If no statements appear after the insert card, the 
program segment identified on that insert card would be deleted entirely. 


3000003031 I 1 > U n I l222222222233333333339H*(‘**(9H‘«H9S5SSb'j55556<>666666A6 77 72777977« 
1 23 '<567«9 5 j23<)S67a9cl 239567893 j 23956 739(3 l23<|S67fl9o 12 3856? 89o I 23*iS67B9ol23Mb6789o 

WPOPtULE TABLE, table 

-99, 132 

• ,*SPSH SPA'.’CE SHU'tMTLe * 


Example 17 

Example 18 illustrates how any number of statements can be inserted 
to follow a certain statement in the program. Note that only one location 
number is required on the insert card following the minus sign. 


OQOJOOOQOI I I I I 1 I 1 I I 222222222233333333 J3««H<)‘M»99*t‘lH55b5bb5555696666666677 7777777 78 
I 239567 89j, 12 3956789(3 12 39567 893 1 2 39S6 7 090 1 23‘»567«9jji 2^9567 99ol2i<»56769Qj23<iS6 789o 
>Hpt)p,ULF table, TABLE 
-96,96 

N5TaGE*I3 

-9 7 

• »*ALL ',*UsED all ••’STASES’ 


Example 18 
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Due to the nature of the procedure tables and the Uni vac 1108 system, 
i it is necessary to recompile those Fortran subroutines that use a procedure 
table that has, been modified. Note that within the comment statement portion 
of each procedure table there is a list of subroutine names that use that pro- 
' cedure table. Recompilation requires that these subroutine names must then 
appear on control cards that follow the end of all insert cards to the procedure 
, tables. Example 19 illustrates the format for such control cards. It is 
recommended that the "S" option be used and, as the example shows, the 
subroutine name should appear twice and should be separated by a comma. 

!, 

, — 

OOUQOCOOOI 1 1 I I m I l22 222Z222 2i3333233 3^<*4‘IH4^‘l‘<H‘*b55&5b55556666666&66 7 7 77 7 777 7 7e 
1 23H^6 7 (i9o 1 23*i b678 Vq 1 23H56 78’?o I 234S6 7 I 23^*567 e^Ol 8901234*5678 '70123 4567B9 q 

idPOPfULF TAbLEtTABUE 

••98,9a - — 

• ,*5^6 »i»S0LI0 •,♦RaC<ET•l» BST« * 

-IQOilQO '• • . 

,»SPSH SPA^i’CE SHU*i<TTL£ * 

gpORiS master fM, ASTER • ‘ - - 

iSFORiS hEaORI ,ri£ADRl . ^ 

iSfORiS hEAPR 2 tHEAORZ - 

■ (5F0«,5 SORTl fSORTl 

lolFORiS PRINTI,,P.RImTI- ■ - 


Example 19 

Changing and Adding Fortran Routines 

. .. If it were necessary to modify. the actual Fortran statements in. the 

program, the same insert card method is illustrated in the previous example 
is used. Example 20 illustrates the appearance of the control card needed 
and an example insert card setup. It is required that the "US” option be used 
on these control cards, noting also that the subroutine name again appears 
twice and is separated by a comma. A very important reminder is that these 
Fortran control cards (@ FOR, US) and their associated insert cards must 
follow the procedure table control card and its associated insert cards, if any, 
in the card deck ruhstream. 

Example 21 shows that only one control card is needed to add a new 
subroutine to the programl' Simply put the control card before the subroutine 
deck. Note that the "IS" option is used, followed by a blank space and then 
the name of the routine. Addition of a new subroutine must follow the proce- 
l " dure table changes, if any, that are being made. 
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Reproduced from 
besr available copy 


GC 1 1 1 n m l 2222 2 22? 223333 J3i3 3 34^ 77777 77778 

I 23H&fe7e^!^ 12 3^ S67S9, 3 I 234 S6 789 3 j^<3Vol23H 56 799c I 2 3<*b6 789f5l23H‘j6 7«9oi23Hb6789o 

JKUKiUS MAliJirtAlN 
-59,59 

bC FU»^MATUHl,5,^,iyH*** MnE'^ONIC .^A.’iE IS M 1 5 SPE |.C t U • • • ) 

-62*42 

57 CutSKT < I 1 = 13 
-63,63 
*VFJKtU> 

- 22,22 

IF UDKSkT m •Lt*a*OR,Ct>eSi?T « n -(iT#NU«5Rl IGO 10 60 

-24 ,2*1 

GO TO < a, 1 6 ,2N *32 ,40 , h8«56 ,59 *7h ,60) iNAkgU 
•JFORiliS tJpoAlE ,OPi)ATt 

-119 

1 F I NC A«l) .ty . 1 • Ano • NCH • AMO.L I WUM ( 2 * Hi Q * BL A NK > 0^ TO 30 



Example 20 


ono^’nnnnoi.iiiiiiii 12Z2Z7 2 2 3 3333 3 T333 446 444«i4 445 55 5 5SS5^ScSS5E€S5S57 7 7 77 77777 3 

12 ?<l 5 c7E 5012 34 56 783M234 5£7F5012 34 5C7e”Dlzr*4!£ 76801234 7 SSl'i23456 7890123 45£ 7 0*^0 


SFCf?f 

IS NEW, NEW 




8C2FGUTIKE NEW 

NEW 

OVtii) 

c • • ♦ ♦ 


♦ • NE W 

Doni 

C • t • * 

THir IS A NEW rCHTRAN SUSRCUTTME THAT IS SEING ADDED TO GSEDKS 

NEW 

OlHi? 

c • • * * 


• ♦NEW 

00U3 


DI^fNSlGN ICIM 

NEW 

■DtlCiS 

1 

READf 5* 1005 LX 

NEW 

Q0U6 


EC 20fJ=liU> 

NEW 

VVV7 

15 

KP»IN T=If J) ♦LX 

NEW 

ooua 

16 

WRlTt{£*l7»KP»INT,LX 

NEW 

Dot) 8 

17 

rOPrAT< 1H1*I2) 

NEW 

aulo 

2P 

CCNT^INUE 

NEW 

titiii 

ino 

FCPVAK 1H1*I2) 

NEW 

aoi2 


RETURN 

NEW 

C«013 


CNC 

NEW 

GU14 


Example 21 


Deck Setup, Control Cards, and Options 

Following the procedure table and Fortran subroutine control cards and 
their associated insert cards, a final control card is required to allow for 
these program modifications. Example 22 shows what is called the @MAP 
control card. It is used to collect all routines from the current tape and make 
a new temporary program with the user’s specified program modifications. 


OOOJOQ3DiI Ilium 122222222223333333333H‘*'U‘l‘*HH‘l*lSS5-,J»!i55&SiVi6i4.i6tiiJ.ZJJ-/.lZZi7.a 

123H567«9?J23H&67aVali3.,54/fl93|23<(!i673Vj|23<)542a'>0l2l‘*<i4799(jl2Jsb<,7eV3|23H5«7«V0 

«HAP*X PAl?!,P«OVE . 


Example 22 
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This card must appear immediately after all subroutines and before 
the @XQT PROVE card. The program analyst also has the option to make a 
new tape that would contain any program modifications, as was discussed 
earlier. Simply punch **T” for tape at card column 11 of the Type 1 card. It 
is recommended that a trial run be made first without the ”t” option so as to 
validate any program modifications. When such modifications are working 
correctly, utilize the ”T" option. Figure 15 illustrates how the entire deck 
setup would look with sample program modifications in the runstream. 

JOOUOQJOll I i U n l I 1 22222 222223333J33333HlH‘tH'*‘«<tH‘*i.b55S5S5556<>6<.666»*67 777 777 '778 
J23H56 78’cl23H5*7«‘'0l23 4&67S’0J23NS8 2tt’at23‘)E>67e?C(l23Hbi7e90l23‘)56 7a’Oi2 3't56 289o.. 
.JftONt/'T GSt;tJ,'lSi'*31020,XXXXxXQlH207|3,20C/l50c ‘(iSE PAT* MaNAQeMENT SYSTEM 

8RUn,/'/'T CSEPMS. 931020. XXxXXXal;j207, 3, 2 j5/IS00 

«ASe.T gSE-0L0*TAPE..T.YYYYY 

liKErtUD GSE-OLP-TaKE* -• -■ - 

WAStiiT 1 iF2 

liASliiT 2iF2 ■ 

<aAS(iiT iiF2 

»ASb iT H I F2 .... - - - 

iiJASGiT cCJNTROl-FILciF/ 1/TRK/ll 

i>)CUPJN GSE-DCD-TAPt • > TPF*€ — ■ - - 

fciCOpYiCi GsE-0L0^TaPE*iC0NTK0L-FILE» 

0COPY,G GsE-OlD-TAPE* I I • - 

«0ArA,lL 2* 

Qenq 

fSPOPfULF TABLEiTABLt. - - - - 

**9 8 9 8 

’ • .•sxb •••Solid •••hocket^i^ bst. • 

-lOOi 13? 

• .‘SPSH ••♦ SPA^ .’ce SHU^ I 'TTUE . * - - 

WFOK.S MASTeK .MASTER 

apDRiS hEad^i.heaohi 

aFORiS MEADR2,HEADi)2 

ISFORtS sorti.sorti .. 

iSFOK.S PRlNTl.PRlNTl 

(9F0K»US MAlRfMAIM — 

-59.59 

.50 FORMATt IHl .5X,l9H*«* HNEMOMJC NAME i.A8»|7H.lS H t S SPELtEU*.^ • > . 

-62,62 

s.7.j:D£.sJixi iJ..» in 

-63,63 

.OfQKtUS .MEReK.,.M6R!St 

•22.22 

NUMSR1=MAXSRT*2 - — • 

NUMSR1*MAXSRT*2 
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-29 , 29 

GO TO «a, 16 , 29»32, 90,98. 56,59. 79,60> »NARG0 - - — 

fflFOR.US UPDATE, update 


lF(NCARa.EQ*UANO.NCR,EQ.O«*ND«ElNUM<2>,EQ«BLAMKlGO TO 30 

aMAP,X part, PROVE - - — - 

8X9T PROVE 

09/.IB/73 - - - 

sumaRy 

STAgEI - - - 

STAGE2 

MEO.lAS—.. HE - 

PUNcTl SERVIC 

CtAbSC 1 - - - - 

USELOC MSEC 

A P P 0 0 C - 6 5 U 0 9200 

flFlN 

Figure 15. Control card deck with program modifications. 
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Program Characteristics 

The GSE Data Management program has several special features, one 
of which is the use of the Univac Sort/Mei^e Package. It consists of a collec- 
tion of Fortran-callable subroutines which allow the program to interface with 
the 1108 System Sort Program. Subroutines UPDATE, SORTl through SORT? 
use this Sort Package. For more details about this package a complete write- 
up is available from the publishing organization. 

Another feature of this pregram is the use of the Fortran V procedure 
table. It allows storage of any array information that is used as common 
reference among the 28 routines. Each routine can therefore use whatever 
procedure table it needs in order to gain access to desired specifications. 

Most modifications the program analyst may wish to make to the procedure 
table do not necessitate changes to those routines that use that table. Remem- 
ber that the program is also designed in such a way that it can handle pro- 
gramming additions. The program presently uses 23 000 words of core with 
a maximum of 32 000 words allowable for remote operations. The data bank 
currently allows for a total of 540 GSE-EI entries but can be enlarged to fit 
the need for more, merely by changing the specifications on the four@ASG, 
TN, F2 control cards. Computer execution time per sort ranges from 
roughly 13 seconds for a relatively smaller output such as the Master Sum- 
mary Table, to 26 seconds for one of the more typical sorts (Stage Sortl) . 


Description of the Program Listing 

Each routine of the GSE Data Management Program is commented in a 
standard format so that changes or additions can be easily made by experienced 
programmers. As can be seen in Appendix B, the current program listing is 
given for each routine. Appearing first within each routine are comment 
statements that briefly describe its function to the program. Following this 
initial description are comment statements which identify and define the 
important variables in the subroutine. Also note that among the actual 
Fortran program statements are added comments that give better detail to the 
significant operations of the subprogram. Special attention should be given to 
the information provided in the comment portion of each procedure table. 
Conveniently located there is a description of its function, any defintions of 
important variables, and a cross reference to those routines that use the 
table. 
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APPENDIX A. DEFINITION OF INPUT FORMAT FOR 
GSE AHRIBUTE DATACARDS 
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APPENDIX A. DEFINITION OF INPUT FORMAT FOR 
GSE ATTRIBUTE DATACARDS 


Input to the GSE information bank is supplied by data punched in, sets 
of four or more 80-column computer cards. The format for these cards is 
shown in Figure A-1. Figure A-2 shows an example of all four card types. 
Care should be taken when using the various Descriptor Codes explained in 
the following sections. These descriptor Codes are the variables used to 
determine the specific information which will be placed in four of the eight 
possible sorts. The Descriptor Codes used must contain no blank spaces 
within each code and must contain no zeros. (NOTE: All information should 
be punched left justified unless otherwise stated.) 


Card Type 1 

1. Card Number — This number identifies that this is the first of a 
set of four or more data cards (card column 1 punch a l) . 

2. Project Number — This digit code number represents the general 
project in which the GSE item is associated. Presently the five codes used 
are as follows (card column 4) : 

Code Project 


1 Saturn 

2 Skylab 


3 Shuttle 

4 HEAO‘ 

5 Spacelab 

3. El Number — This 13- maximum-digit number should be left justi- 
fied ( card columns 7-19) , 


1. High Energy Astronomy Observatory. 
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- OEHOTE) CONTtMUATlOH 


Figure A-1, GSE input format sheet 
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Figure A-2. Example of GSE filled-in data sheet 










4. Title — This information space provides the first available line for 
the writing of a brief description for GSE associated with the above El number. 
Care should be taken in order that this line of description does not utilize 
more than 36 spaces. Characters should be punched in columns 22 through 57 
inclusive, since the computer program will not accept characters outside this 
limit. 


5. Continuation of Card Type 1 — In order to continue the description 
or remarks, a new card must be punched with a dollar sign in column 1 and, 
on that same card, the continuation of the title description should be punched 
in columns 22 through 57 inclusive. Take note not to exceed the designed card 
space. 


6. Each continuation card is identical. The maximum number of 
continuation cards is 19 (i.e, , a total of 20 description cards is allowable 
including the continuations) . 


Card Type 2 

1. Card Number — Punch a number 2 in column 1. 

2. Design Responsibility — This is the oiganization which is directly 
responsible for the actual design of an item of GSE. This organization may or 
may not be the manufacturer. The code is left justified in columns 4 through 
15 inclusive ( examples: Rocketdyne, ASTN-EPG, MDAC-WD) . 

3. Class Code — This integer, punched in column 18, represents the 
major hardware category that is supported by a particular piece of GSE. The 
code must be one of the following: 

Descriptor Code Name 

1 Stage Systems 

2 Payload Module 

3 Experiment 

4. Quantity — This is the number of pieces of GSE that fit this particu- 
lar description. This integer should be placed left justified in columns 21 and 
22 . 
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5. Weight In Pounds — The weight is a left justified, six-digit- 
maximum integer in columns 25 through 30. It weight is not known, use TBD; 
right justify entry. 

6. Stage — This attribute defines the stage or vehicle assembly that 
the GSE supports. The present program will key off an alphanumeric or 
mnemonic code. All mnemonics for these stages are left justified , six-or- 
less-character words that must conform exactly to one of the following; 


Code 

Module or Stage 

AM 

Airlock Module 

ATM 

Apollo Telescope Mount 

ET 

Shuttle External Tank 

lU 

Instrument Unit 

MDA 

Multiple Docking Adapter 

OWS 

Orbital Workshop 

SRB 

Shuttle Solid Rocket Booster 

SSME 

Space Shuttle Main Engine 

S-IC 

S-IC Stage 

S-2 

S-II Stage 

S-IVB 

S-IVB Stage 


Other codes can be added to the system based on programming instructions 
explained in Section IV. 


Card Type 3 

1. Card Number — Keypunch a 3 in column 1. 

2. Use Location — This describes the area of usability for the particu- 
lar GSE item. Multiple entries of Descriptor Codes are permitted with each 
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code separated by a comma. The Descriptor Codes should be centered using 
columns 4 through 21 and must be as follows; 

Descriptor Code Description 


CP 

Canoga Park 

HB 

MDAC-WD, Huntington Beach 

IBM 

IBM Space Division 

KSC 

Kennedy Center 

MAF 

Michoud Assembly Facility 

MFG 

Manufacturing Facility 

MSC 

Houston Center 

MSFC 

Marshall Center 

MTF 

Mississippi Test Facility 

SDF 

. System Development Facility 

STF 

Static Test Facility 

WTR 

Western Test Range 

FACT 

Factory 

Other location codes can be added to the program based on instructions given 
in Section IV. 

3. Functional Code — This code describes the basic function that the 
GSE will perform for the associated piece of hardware. The Descriptor Code 
must be in columns 24 through 29 and must be one of the following: 


Descriptor Code 

Function Name 

ACCESS 

Access 

GASDET 

Gas Detector 

HANDLE 

Handling 
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PNEUMA 

Pneumatics 

STORAG 

Storage 

REFRIG 

Refrigeration 

SERVIC 

Service Gear 

TESTCH 

Test and Checkout 

TRANSP 

Transportation 

VAC PU^ 

Vacuum Pump 


4. Length in inches is placed in columns 22 through 25. If length is 
not known, use TBD; right justify entry. 

5. Width in inches is placed in columns 28 through 41. If width is not 
known, use TBD; right justify entry. 

6. Height in inches is placed in colunms 44 through 47. If height is 
not known, use TBD; right justify entry. 

7. Unit Cost — The cost of design, development, and procurement 
of one GSE piece of gear and year of purchase is given ( example: 320K 7l) . 
Center the value in the 13 characters provided in columns 50 through 62. If 
cost is not known, enter TBD in columns 54 through 56. 

8. Media — The type of fluid medium that is used with the GSE is 
given ( examples: GN2, RP-1, He). Multiple entries of fluid media Descrip- 
tor Codes are allowed with each code separated by a comma. Use columns 
65 through 76 and center the entry( s) in the columns provided. The Descrip- 
tor Codes are as follows: 


Descriptor Code 
COOL 
ETHGLY 
FREON 
GH2 


Description 
Coolanol 
Ethylene Glycol 
Freon 

Gaseous Hydrogen 


2. Note blank space in code. 
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GN2 


Gaseous Nitrogen 


G02 

Gaseous Oxygen 

HE 

Helium 

HYD 

Hydraulic Fluid 

H20 

Water 

H20GLY 

Water Glycol 

ISOALC 

Isopropyl Alcohol 

LH2 

Liquid Hydrogen 

LN2 

Liquid Nitrogen 

ME/H20 

Methanol Water 

MMH 

Monomethyl Hydrazine 

N204 

Nitgogen Tetraoxide 

ORONIT 

Oronite 

PRES 

Preservative Oil 

RJ-1 

RJ-1 

RP-1 

RP-1 

TRIG 

Trichloroethylene 

VAC 

Vacuum 


Make sure that the letter O is punched and not the digit 0. Descriptor Codes 
contain no zeroes ( O) . 

If no length, width, height, cost, and/ or fluid media are associated 
with the GSE item, punch N/A in the assigned columns. 
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Card Type 4 


1. Card Number — Punch a 4 in column 1. 

2. Document Number — This card provides room for up to six docu- 
ment numbers, each number being up to 12 characters long. If a document 
number is less than 12 characters, leave the remaining spaces blank. Starting 
in column 4 on the same card, punch the first document number, ending in 
column 15. Skip a space, that is leave column 16 blank. If a second document 
exists, use columns 17 through 28. Skip a space and then a third document 
number. Continue this trend for the remainder of the card, if needed, always 
noting to skip a space between document numbers. 

3. Document Continuation Card — If more than 6 documents are needed 
needed, a second document card is required. Only one continuation card is 
allowed. Punch an asterisk in column 1 and pattern the document numbers 
exactly as stated in item 2 above. 
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APPENDIX B. GSE DATA MANAGEMENT SYSTEM 
PROGRAM LISTING 






SUBROUTINE DATECK 


1 

z 

C *i 

C • 
c • 

THIS routine Checks to sce if a valid numeric date has been 
supplied BT the prognah analyst 

••••OTCK 

• OTCK 

• OTCK 

1 

2 

3 

u 

b 


buBRoOTiNL OaYECK(NERAOR> 

OTCK 

5 

6 


Include cohdn 

DTCK 

6 

7 

c 


OTCK 

7 

B 


>**DEf I nIT | 0N Or function FLDIttKlEI IpSTaRTINO BIT KbBIT WIDTH 

dtck 

8 

9 

C*6< 

»*«e:w.miorQ nahe: 

OTCK 

9 

10 

c 


OTCK 

10 

1 1 


WO^O.DATM 1 1 

OTCK 

1 1 

12 


N£RHO^*0 

OTCK 

12 

1 3 

c 


OTCK 

1 3 

\H 


■••Store the ist character of oatxiu in variable n^aRti 

OTCK 

IH 

lb 

c 


OTCK 

15 

1 « 


Nf»ARTl"FLU(0.6i«0RD) 

OTCK 

U 

17 

c 


DTCK 

17 

1 8 


• •stor£ thl 3Rd character? of DATXm iw Variable npaRT3 

DTCK 

la 

19 

c 


DTCK 

1 9 

20 


NpAKt 2-FL0<6< 6tRURD> 

dtck 

20 

21 

c 


OTCK 

21 

22 

c*«« 

• •Store the 2no character of oatxhi in variable npaRT2 

dtck 

22 

2J 

c 

— 

-- OTCK 

23 

29 


NpARTJ*FLon;ii6,«ORDI 

OTCK 

2H 

2b 

c 


OTCK 

25 

26 

c*«« 

••Check to see if the ist character is a blank 

DTCK 

26 

27 

c 


OTCK 

27 

28 


lF(NpARTUiO*S)(iO TO 20 

DTCK 

2A 

29 


NvALu^^^nPAHTi^HB 

OTCK 

29 

30 

c 


DTCK 

30 

31 

c»*« 

•«ChLCk to btt |F THE 1ST CHARACTER IS a VALU INTEGER 

DTCK 

31 

32 

c 


DTCK 

32 

3J 


lF<NvALUE«GT.9i0R«NVALUE«LT»0lQ0 TO 30 

DTCK 

33 

39 

c 


OTCK 

3h 

3b 

c**> 

••check To see |F the 2N0 character A SLaSHI/1 

™ OTCK 

35 

36 

c 


DTCK 

36 

J7 


U (NpAKT2#EU.601G0 TO 35 

OTCK 

37 

38 

c 


OTCK 

3a 

39 

C***«*ChCCk to see |F the 2ND CHARACTER IS A BLANK 

DTCK 

39 

9U 

c 


OTCK 

HO 

Hi 

20 

if (NpART2*Eg,51G0 TO J9 

OTCK 

Hl^ 

H2 


Nv ALue*NPARTi«H8 

DTCK 

H2 

H3 

C 


DTCK 

H3 

HH 

c*** 

••check To see if the 2N0 character is a valid integer 

OTCK 

HH 

Hb 

c 


OTCK 

H5 

H6 


If »N vALUE.GT,y.OR,NVALUE,LT«0l6O TO 30 

OTCK 

H6 

H7 


bo To 3b' 

OTCK 

H7 

HB 

c 


DTCK 

88 

H9 


♦•cheCk To see if The 3rd character is a blank 

OTCK 

H9 

SO 

c 


OTCK 

BO 

bl 

29 

if (NpART3«N£,blG0 TO 35 

OTCK 

Bt 

S2 

C 


DTCK 

B2 

S3 


• •SeT error REt 

OTCK 

53 

bH 

c 


DTCK 

BH 

Sb 

30 

NeRHoN" 1 

DTCK 

55 

S6 

35 

Return 

dtck 

56 

57 


EnO 

OTCK 

57 


preceding page blank not fib 



SUBROUTINE DIMMET 


1 

C 


••••DMMT 

1 

2 

c • 

SUBROUTINE DIMMET -TH]q SUBROUTINE CONVERTS THE DIMENSIONS OF 

♦ummt 

2 

3 

c • 

LENGTH .rtlOTH, AND ME I Gm f T 0 CEN T 1 ME T E RS „F «0M INCHES 

♦ DMHT 

... 

H 

c •• 


•♦••OMhT 

H 

S 

c 


OfiMT 

...& 

6 


subroutine d 1 hme t < 1 met 1 C . I NA 1 

DMMT 

6 

7 


0 1 mens I ON IM<H| ^ ... . . 

DMMT 

.7.. _ 

d 

c 


DMMT 

8 

? 


••FLO IS A LIBHART F UNC T I .ON „XP™ OB T A 1 N_.d.I TS , F ROM AEPHANUmERIC NUMBERSDMMT 

9 

10 

c 


DMMT 

10 

i 1 


1 M t 1 1 .rLD 1 0 . 6 * I NA ) 

. ... DMMT 

1 1 

12 


IMC2i.fL0I6,6*INA» 

DMMT 

12 

13 


.. |M(3)*rtOI |2,6«INA) . . 

DMMT 

13 

1 


I M ( H ] >rLO{ 1 8 »6 , 1 NA 1 

DMMT 

1 H 




. .. 1 AOD-0 . 

OMMT 

IS 

1 6 


DO 12 1 • 1 • H 

dhmt 

14 

1 7 „ 


1 r r I M t 1 1 .NE -S 1 <iO TO 1 0 .. 

DMMT.... 

_17_ 

18 


1 AOD« I AOQ^ 1 

DMMT 

IB 

_ 


GO TO 12 .... 

DMMT 

19 , 

20 

10 

IF( 1H( 1 I.EQ.2S) GO Tn 13 

DMMT 

20 

2 1 


IF ( IMH » *E0* 1 GO TO 13 

DMMT 

21 

22 

12 

CONTINUE 

DMMT 

22 

23 

^ ^ 

I ADOiEQiOl GO. .TO IS _ . 

DMMT.. 

23 



I «0 

DMMT 

2H 

2‘j 


00 so J« U I AOD ... 

DMMT 

2S 

24 


IF! 1H| Jl .NE.SI go to lil 

dhht 

26 

27 


l-l*l .... 

ommt 

27 

28 

SO 

CONTI NUE 

0 M M T 

28 

_2? . _ 

51_ 

_ GO TO U6,17.ia*l3),lADD ._ , . 

_ .ommt.„ 

29. 

.10 

1 3 

jmetic-ina 

DMHT 

30 

3 1 


GO TO 99 

OMMT 

31 . 

32 

C 


OMMT 

32 

3 3 

c • • • 

♦ •calculate integer number ( depend I ng on number of digits* 

DMMT 

3 3 


c 


OMMT 

3H 

Jb 

I5_ 

I R E A L ■ < 1 M ( *n - H a I ♦ I 1 M < 3 ) - H a 1 • 1 0 ♦ .< I M t^2 I - H a I ♦ 1 0 0 * U M U J - H 8 1 • 1 0 00 

ommt 

35 

36 


> 

o 

c 

dhmt 

36 

37 

i4 

IREAL-I IMn»3J^H8l*ltM(|*2>-H8Ml0^l|MU4l)*‘*B>*l00 

ummt 

3 7 

38 


GO TO 19 

ommt 

3H 

1? 

1 7 

I RE AL« I 1 M II *2 )-H8 1 ♦ n M t I ♦ 11 -H8 I ♦ 1 0 

ommt 

39 

HO 


on TO 19 

OMMT 

HO 

H i 

18... 

I RE AL- I M ( 1 ♦ 1 » -R8 

DMMT ... 

H 1 

H2 

1 9 

RE AL M 1 RE AL 

DMMT 

H2 

Hi 

C 


DMMT 

H3 

HH 

€••• 

•♦CONVERT HEAL NUMBER Tn METRIC 

ummt 

HH 

Hb 

C 


DMMT 

HS _ 

H6 


XMET IC«HEAL*2«&H 

DMHT 

H6 ‘ 

H7 

_„c. 


DMMT _ 

H7 

H8 

C«t4**C*LL SUdROUTlNE Tu COWVtWT H£AL NUriatR 10 ALPHANUMtK|C NUMBER 

DMMT 

H8 

HV 

C 


DHMT 

H9 

SO 


call RELALPI IMETIC ,XMFTIC*HI 

DMMT 

50”' 

S 1 

99 

RETURN 

DMMT 

bl 

S 2 


End 

DMMT 

b2 
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SUBROUTINE HEADRl 


i 

C 

♦ • 


• HDR 1 

1 

2 

c 

• 

SUaHOuTlNt -THIS HOUTINE PRINTS THE COLUMN HEADINGS AND 

• HDR 1 

2 

3 

c 

♦ 

IHE CLASS COOL FOOTNOTES THAT ARE PECULIAR TO STAGE SORT 1 

• HDR 1 

3 

H 

c 

« • 


• HDR 1 

4 

b 

c 



HDR 1 

b 

6 

t 


V A« 1 able OEf 1 N I T I ON 

HDR 1 

6 

7 

c 


HDR 1 

7 

tt 

c 


NKLt determines NHEN THE CLASS CODE 

HDR 1 

6 

9 

c 


footnote is to be written 

HOR 1 

9 

Hi 

c 



HDR 1 

10 

1 1 

c 


IENq OETERNINES when to write both fOOTNOTCS - - 

- HDRI 

1 1 

U 

c 


ON THE fINAL PAGE OF THE SORT 

HORl 

1 2 

i3 

c 



hdri 

13 

1 M 

c 


JKLY SET C8UAL TO «i»FALSEi>* FOR PERFORMING 

HDR 1 

14 

lb 

c 


stage SORT 2 

HDRI 

15 

\6 



1 t£R ( L)AT a»ShORT } 

HDR 1 

I6 

i 1 



Subroutine HtAORi - -- - — "■ 

HDR 1 

17 

\ b 



Include xsfAGttLisT 

HOR J 

1 8 

1 9 



InCLuDE COHOn 

HORl 

19 

l\i 



InTEcER p 

HDR 1 

20 

21 



LoOIcAL 3K£y 

HORl 

21 

ll 



CuMMoN/oNE/NkET 

HORl 

22 

23 



CoHHoN/T60/IeND, JKCY |PK£T 

HDRI 

23 

2^ 



P • 6 

HORl 

24 

2b 


1 

lp( IeND- 1 )2b,2i2 

HDR 1 

2b 

26 


2 

ArI Tf. (P ,26A ) 

HORl 

26 

27 



A K 1 T F 1 P 1 2 6 b 1 

HDR 1 

27 

26 



JaEYp*FaLSE* 

HDR 1 

28 

29 


s 

Go To 27b 

HDR 1 

29 

3U 

c 



HDR 1 

30 

3 1 

c< 


•♦AkITf ThL CLaSS code mnemonic reference at the bottom of the page 

HDR 1 

31 

32 

c 



HORl 

32 

33 


2b 

Nf>AGK"NPA<4tti 

HDR 1 

33 

3H 



If i NkET- 1 1 4o*35t36 

HDRI 

34 

3b 


3b 

6h I Tf iP ,264 ) 

. hdri 

3b 

36 


36 

Wh He ip *26b) 

HOR 1 

36 

37 



NkEYp2 

HDRI 

37 

3b 



c*0 Tq 42 

HDR 1 

38 

39 


40 

NkETpI 

HDRI 

39 

su 


42 

HrI Te<P»272 1 

HDRI 

40 

H 1 


43 

Wr 1 Te IPf260l 

HORl 

41 

H2 

c 



HORl 

42 

H3 

Ci 


itARlTt OUT The date and the page number 

HDRI 

43 


c 



HORl 

44 

4b 


4b 

Ah ITEiP,2lb)DATX*PR0GMiNPAGE 

HDRI 

4B 

46 

c 



MORI 

46 

47 

c«« * 

Determine y<mich moduleisTagei Title is to be printed 

. HDRI 

47 

46 


Subscripted variable i'gsctle** contains a^l gse title headings 

HORl 

48 

49 

c 



HORl 

49 

bO 


60 

J.MDo*'! 

HORl 

bO 

bl 


6b 

•I.J-2 

HDRI 

b| 

S2 


70 

AR|Tc(P,22UI<GSETLClK>t K>ltJI 

HDRI 

S2 

S3 

c 


• - - - . , . , . . 

.-MORI - 

&1 
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SUBROUTINE HEADRl ( Concluded) 



C • « • « 

«Kr4nt Th£ GLn&^AL C 0 LU^tN HCADINqS 


HOR 4 

SR 

&b 

c 



HOR) 

55 

b6 

7S 

Wr 1 TeIPi 22 &I 


HORl 

56 

s; 

au 

WR lTe(P,230> 


HOR) 

57 

ba 

B3 

rtRlTE(P.23b» 


MORI 

be 

s? 

6*4 

hhITe(P. 2 ‘» 0 ( - 


HDRl 

b9 

6 Q 

2 IS 

FoRN*n 8 *,* 6 |A 2 » J9X,2*6,lX*7HPR0JECT»H3Jt»‘|HP»aEi 1X« 12) 


HOR) 

60 

bi 

220 

FoWHaT (/ » b7X ,3A64 


HORt 

61 

62 

22 b 

( 1 X * 1 3l t IH* M 


HORl 

62 


230 

FoRHaT(6UAi»hCLASS«3x • I OhF UNCT I ON AL i 1 9X , JHUSC • ) 7 X » I DHAPPU I C AtLC I 

HDRl 

B3 


23b 

F0PMAT(3Xt9HEl NUH6iNt2oX||4HO£SCR]PTlON» | BX t *(HcODE t » RHCOOE 9 20 X 

«HDR 1 

6«4 

6 b 


• rHLOCATIoNi45X i9H0UCUMENTSI 

- 

HORl 

65 

*6 

2*4U 

FoNn«T « |X t 13H IH* ) ) 


HDRl 

66 

6 / 

260 

FoKHaT( 4 


HDRl 

67 

63 

26*4 

FoRNaT 1// tx »«N/A OR NA • NOT APPLICABLE*) 


HDRl 

68 

69 

26b 

FoRNaT|1X,*clAS5 CODES) ).STA 6 E SYSTEMS 2*PaVL0A0 MODULE 

StEHOR) 

69 

7U 


•XpER|HENT>) 


HDRl 

70 

74 

272 

PoRMaT) )H| |S<|X| ‘STASe SORT ONE TABLC*) 


HDRl > 

7| 

72 

27b 

RcTOrN 


HORl 

72 

73 


EnO 


HDRl 

73 
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SUBROUTINE HEADR2 


[ 





1 

C 

• • • 



• HDR2 

1 

a 

c 

• 

subroutine HEa0^2 -this routine prints The stage sort 

2 COLUMN 

♦ H0R2 

Z 

j 

c; 

• H£6dINgS at THt TOP Of £ACH PA(iE 


♦ HDP2 

3 

H 

c 

« • • 



«HDR2 

H 

b - 

c 




HDR2 

S 

6 

c 


/AH)*BLL OtriNlTlON 


HDR2 

& 

; 

c 




HDR2 

7 

u 

c 


f*KLy ULTERMINES WHEN THE ♦•NOT A PP PL I C A 8 L E • » 

HDR2 

8 

9 

c 


footnote is to at kkRitten 


HDR2 

V 

j a 

c 




HDR2 

10 

1 1 

c 


JtNo OETESNJNfeS «tH5N TO WRITE THE 

LAST FOOTNOTE 

HDR2 

1 1 

12 

c 


ON THE final Pa«E OF ThE SORT 


H0R2 

1 2 

\ 3 

c 




HDR2 

13 

\ H 

c 


jAEf SET EQUAL TO «><FALSC>*' FOR 

PERFORMING 

H0R2 

1 R 

ib 

c 


STAQE SORT 1 


HORZ 

15 

16 

c 




HDRZ 

1 6 

\ 7 



Compiler t oat h-smort \ . . . 


HORZ 

17 

i a 



SubRoUTlNt Hf:ADR2 


HORZ 

U 

IV 



Include xsTA^tfLiST 


H0R2 

1 9 

2 ii 



InCLu.de comun 


H0R2 

20 

21 



Integer P|PkeT 


HDRZ 

21 

22 



LoblcAt J<EV 


H0R2 

22 

23 



C0MHoN/T*O/ I pNO 1 JKEY iPKEV 

■ 

HDRZ 

23 

2H 



p ■ A 


HORZ 

2«+ 

2b 



If ( IenD-1 )2S,20i'2u 


HORZ 

25 

2b 


2Q 

AHlTElPiii**! 


HORZ 

26 

27 



JKEY.*FALbE# 


HDR2 

27 

2ti 



5q To 27b 


HDRZ 

2B 



25 

NpA&t •NPAuE^ 1 


HDR2 

29 

3U 



If (PkET-I *)0.35i36 


HORZ 

30 

31 


3b 

WKiTt<P.2tAHJ 


HDRZ 

31 

32 


36 

PkEY,2 


HDRZ 

32 

33 



Go To H2 


HDRZ 

33 

3M 


HO 

PkEY.I 


HORZ 

34 

3b 


H2 

rtRlTtiP»2/2) 


HDRZ 

35 

36 



WR 1 Te ( p (260 » 


HORZ 

36 

37 

c 




HDRZ 

37 

3tt 

c< 

» • * * 

•rtwlTt TmE date and the PAGE NUMBER 


HORZ 

38 

3V 

c 




HORZ 

39 

HU 



rtKlTF<P|TiSJoATX|PROGM»NPAGE 


HORZ 

40 

Hi 



j«MOi)*H 


HDRZ 

H 1 

H2 



1 mJ-2 


HDRZ 

42 

H3 

c 




HORZ 

43 

HH 

c« 

^ ' 

• ArITe; ThE GSt title 


H0«2 

44 

Hb 

c 




HDRZ 

45 

H6 



AHlTtiP,i20ilG5ETLE(KI, K»l,Ui 


HORZ 

46 

H 7 



ARUeiP,i2bl 


. HDRZ 

47 

Ha 



Ar ITelP »230) 


HORZ 

48 

H9 



Wr I T t ( P ,235 1 


HORZ 

49 

SO 



WrITe IP HOi 


HDRZ 

SO 

SI 


2lb 

FoKHaT (si ,A6,a2 i 39X,2A6, lx i7HPR0JECT • HQXiRHPASE. IX t 12) 

HDRZ 

SI 

S2 


22U 

FqRMaT I/57A I3A6) 


HDRZ 

SZ 

S3 


22b 

Format 1 1 x , i 3j uh* i > 


. HDRZ 

S3 

bH 

23U 

FoRMAna:.X»»ENVELOPE DIm»,1HX>*UNIT*i6A,*oESIgNi) 


HORZ 

54 

5b 

235 

fuRMATIj^,»H NUM0eH*,l8X,tOESCRIPTIONS2DX,*MEOlAS 

7X » • WT ♦ » 

HORZ 

55 

5 6 



•7x.‘L*.6'-i'W'.4*.'H*.3».’UTY< ,*X, 'COST/ T«» ,2X, *RESP0NS1b>L ITT* I 

HDRZ 

56 

5 7 


2 HU 

FoRMaT C 1 x » I3| ( Ih« M 


HORZ 

57 

5 8 


26Q 

FoR«aTI i 


HDRZ 

58 

bv 


26H 

FuRMaT I// 1 X , iN/A OR NA - NOT- APPLICABL^M 


HORZ 

59 

6U 


272 

FqRM aT II Hi ,5hX t * ST AGE SORT TttO TABLEM 


HORZ 

60 

6 i 


27b 

HeIUrN 


HDRZ 

61 

62 



End 


HDRZ 

62 
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SUBROUTINE HEADR3 


1 

2 

H 

b 

6 

f 

V 

10 
1 1 
12 
li 
IH 
lb 
1 6 
1 7 
18 
19 
2U 
21 
22 
23 
2H 
2b 
26 

27 

28 

29 

30 

31 

32 

33 
3 «* 
3b 


c • SUgWOuTlNE MEaD «3 -THE FUNCTION OF THIS ROUTINE IS TO PRINT THE 
C • COLUMN HEaOINC^ AT THE TOP Of EACH PA<»E Of THE FLUID MEOlA SORT 


C 

c 

c 

c 

c 

c 

c 

c 


l•HDR 3 I 
•HDR 3 2 
•HDR 3 3 
►•H 0 R 3 H 


VARIABLE 


MESaVE 


OEf I nITION 

SUeSCRiRT OF entry in fluid meoU mnemonic 
CODE table 


100 


2U0 


2bU 


26U 


27 U 


TABtEM 


Compiler t oat a-short i 

SuSHoUTINl HeAUR3 

Include cumon 

InCLuOL XHETa6iLIST 
COMMoN/THREE/MESAVE 
NpACie • NPA(jC ♦ I 
ArITc< 6, lUU) 

FoHMaTUHI ,b9) I •MEOI A SORT 
MrI Tc (6^ IbUl LATX»NPAGE 

ISO FoRMAT(/ 8 X,AAt A 2 t*^ 6 X/*ALL PROGR AMS N 7 * f • R ACE t | I A t I 2 ) 

Jj ■ MESAVE ♦ H 

Kk ■ HESAVE ♦ 6 - 

«hITe<6,2U0I I TAbMEDIMM) |MM • JJ.KKl 
FqHHaT l/S9Xt3AAl 
RhI T t <6,250) 

fqrhat < 1 X , i 3 | < ih« n 

6rITe<6,26UI 

FoRMAT< 6 flX,ifUNCTlONAL*,lbX, • ENVELOPE D|Mf|IHXi^UNITt | 6 Xf * DESIGN I ) H 0 R 3 
Wr1Te<6,2701 

FqRMaT (3X,»E| number », 18X , tOESCRlRT ION* #20X I •CODE ♦*7Xi*RTS HDR3 

• 7xt •LNAX,*Rt ,6X.»H^ ,3Xt»aTY»,6X| tCOST/TR^ lEXj^RCSRONSlBlLtTTM M0R3 

WRlTe(6|2bO) H0R3 

RtTUpN H0R3 


HDR 3 

HDR 3 

HDR 3 

HDR 3 

HDR 3 

HDR 3 

H 0 R 3 

H 0 R 3 

H0R3 

HDR 3 

H 0 R 3 

HDR 3 

HDR3 

HDR 3 

HDR 3 

HDR 3 

H 0 R 3 

H 0 R 3 

H 0 R 3 

HDR 3 

H 0 R 3 

HDR 3 

HDR 3 

HDR 3 


6 

7 

S 

? 

10 
1 1 
12 
13 

m 

lb 

u 

17 
1 B 

19 

20 
21 
22 
23 
2R 

2 5 

26 
27 
26 

29 

30 

31 

32 

33 
3R 


End 


HDR 3 ..~ 3 S. 
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SUBROUTINE HEADR4 


1 

C 

« *• 




1 

1 

t 

• 

bUhHUuTlNt HLaOK*! *THt FUNCTION OF THIS HOUTlNE IS TO PRINT THE 

♦ HDR<4 

2 


C 

• column HEaI>|N<is *t the top of each pace of tME functional coot 

sort#mdr*i 

3 

s 

C 

« « • 


• 9i 


S 

b 

c 




MORH 

b 

6 

c 


VARIABLE definition 


HORS 

6 

; 

c 




HOR*» 

7 

d 

c 




HDRS 

B 

? 

c 


iSAvi, subscript of entry in functional code 


hors 

9 

JU 

c 


mnemonic table 


HDRS 

10 

1 k 

c 


.. 


- HDRS 

1 1 

1 1 



CoMFjLER iuat a-ShORT) 


HDRS 

12 

13 



SuHRo^TINl Hf.ADR*^ 


HORS 

1 3 

i ^ 



Include cdmon 


HDRS 

IS 

lb 



InCLu^>E FUNIaBiLIST 


HDRS 

lb 

1 6 



CoHMQN/f iiUR/ I SAVE 


HDRS 

u 

1 1 



NpAbL ■ NPAOe ♦ 1 


HDRS 

17 

1 d 



WR 1 T E 1 6 > 1 UO 1 


HORS 

IS 

1 9 


lou 

FoRMuT ( IH j ,bsX » "FUNCT lONAL SORT TABLCtl 


HORS 

19 

;{u 



Awl T e 16» IbOloATX^NPAOe 


HDRS 

20 

21 


IbU 

FoHHATwex>Ai,A2*H3X,fALL PR06RAMSN*<7X|*PACE«tU|l2> 


HDRS 

21 

22 



Jj « iSAVt ♦ 1 


HORS 

22 

2J 



Kk^ISAVL+H 


HDRS 

23 

2*1 



1 Tt < 6 «2UU I f FUCOTA < MM ) »MM v 


HDRS 

2S 

2b 


2uO 

f 0RNATl/b4X,.*A6| 


HORS 

25 

26 



6MlTLUi2bU» 


HDRS 

26 

27 


2bU 

FqHMaT 1 1 X , 1 3 1 UH« M 


HDRS 

27 

2d 



Te Ut260> 


HDRS 

2fi 

2V 

260 

foHMAT«03X, •envelope OlH*,mX|»gNlT* ^OtSIoNI J 


HORS 

29 

30 



6HlTEl6t270) 


HDRS 

30 

3 1 

2 70 

FoRNaT ( 3* , ft 1 number « > I SX t •OESCRI PTION^ t20X | ^NEDU* i7X i 


HORS 

31 

32 



♦7x»*LN6Xt*<^f,6X|»HS3X,»QTT*|6x# KOST/TRf |2X | • RtSRONS 1 0 I L 1 TY 

* ) 

HDRS 

32 

33 



MHlTE(6»2bO) 


HORS 

33 

3H 



ReTOrN 


HDRS 

3S 

3b 



CnU 


HORS 

35 
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SUBROUTINE HEADR5 


1 

2 
3 
H 

5 

6 
; 
6 
9 

lU 
I I 
I 2 
I 3 
I H 
lb 
I 6 
I 7 
la 

20 

21 

22 

23 

2H 

2b 

26 

27 

2a 

29 

30 

31 

32 

33 
39 
3b 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


•♦••*•**«*•«*•*•***** ********************************^^”^ ^ 

SUbKOuTInE HEaDNS •the function of this routine is to print the .HDRS 2 

COLuHN hEaOINGs AT THE TOP oF EaCH PAOE OF THE CtASS CODE SORT *H0R5 3 

H 


... * - H0R5 S 

variable definition HDR5 6 

••••»••••* HDRB 7 

HDR5 6 

jHAvIT SUbSCRIFT of entry in class CODS HNEHONIC MDR5 ? 

table hors 10 

- , HORS 1 I 



Compiler < oaTa«short j v 

SuOHOUTlNt HeACRS 
JnCLuOE COMOn 
InCLuOE CLASc.)»LI5T 
Cot^M(iN/F i VL/ 1 rtA V IT 
. NpAGc ■ NHAGe ♦ I 
RK 1 Te ( 6 » loo } 

100 FqHMaT UH| ,&hX * 'CLASS CODE SORT TASLEM 
RRlTEt6,lbUl i)ATA,NPA6L 

ISO FoHMAT(/eXiA6»A2fH3X|f all PROftR RHS • # 97 » • • P ACE • i I A > I 2 > 


HDRS 12 
HDRS 13 
HDRS 19 
HDRS IS 
HDRS U 
HORS - 1 7 
HDRS IB 
HDRS 19 
HDRS 20 
HDRS 21 


Jj - IHAVlT > 1 

Kk - IHaVIT 4 3 

ARiTt (6,2001 (CLACOOlHMl I HM • JjfRF) 

200 FoHMaT(/6(jX i2A61 
Rr 1T£ (6,2b0) 

2S0 FoRMaT( IX, |3| < lH*n 
W«! Te <6 ,260^ 

260 FoRHAT(66At*FUNCT10NS9aX|«DESlCNM . 

R»ITe(6,270| 

270 Fo«MaTI 3X, ♦£ j NUHbE R * « 2 qX , t QESCR I PT I ON * 
i •mEOtAS’Xi 'lTY* tSX, »RESPONSIBlLlTt» I 
RRlTE(6,2b01 
ReTUrN 

* — 


HDRS 22 

- — -HORS 23 - 

HDRS 29 
HDRS 2S 
HDRS 26 
HDRS 27 
HDRS 25 

. _ -- . HORS 29 

HDRS 30 

• 23A|«cODC« i9A»» stage* i UX»H0RS 3 I 

HDRS 32 
HDRS 33 
HDRS 39 

_ , MORS — 35-- 
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SUBROUTINE HEADR6 


1 

C 



»«HDR6 

1 

2 

C 

« bUBf^OUxINE. TO pHiNT HtAOlNG FOR APPLKAHLL oOCUhCNT SORT TABLE 

• H0R6 

2 

3 

c 



♦ HDR6 

3 

H 

c 



HDR6 

H 

& 

c 


VARjABt^ DEflNltlON 

H0R6 

5 

6 

c 



HDR6 

6 

7 

t 


1PMK6 OETtWHlNtS iAHtN THC HEAOiNfc IS TO BE 

H0R6 

7 

6 

c 


printed for each PaIiE qt the applicable 

HDR6 

R 

V 

c 


document sort 

HDR6 

9 

\ii 

c 


IF ifhha value is zero, print heading only 

H0R6 

10 

1 \ 

c 


IF IFHR4 value IS GREATER THAN ZEROiPRINT 

HDR6 

1 1 

12 

c 


FOOTNOTES and THEN A NE« HEADING 

HDR6 

12 

1 J 



CoMPiLEHloAl^ •SHORT) 

HDR6 

13 

J H 



SuBHoUTINL H|;AnR6 

HDR6 

IH 

lb 



InCLIjOE COHOfg 

HDR6 

lb 

16 



iNCUlUt CUDEsT 

H0R6 

16 

1 / 



CqMMuN/SIA/ |FHH 6 

HDR6 

17 

IB 



If ( iFHRbri ) io, n 1 1 1 

HDR6 

) 6 

) V 


10 

CO^^T |NUL 

HDR6 

1 9 

20 



IFHR4 ■ IFHH^ ♦ 1 

HDR6 

20 

21 


12 

toNI )NUL 

H0R6 

21 

22 



NpAC»E ■ NPA&e ♦ 1 

HDR6 

22 

2 J 

c 



H0P6 

23 

2H 


i*9*i 

>PnINT Main Hf^AOiNb AT Top of iACM PA<»e 

H0R6 

ZH 

2b 

c 



H0R6 

2S 

26 



AKlTc(6«euU) 

H0R6 

26 

2; 


BOU 

FoHMaT 1 IM] ,S|X»*APPLIcA 0LE OOCUMfcNT SORT TABLEM 

H0R6 

27 

2B 



VlKlTF<6Bti0n OATX,Dr5CUO(NUM0ER)gOESCO2lNUM8ER»|NPA<iE 

HDR6 

20 

29 


boi 

FoRMaT(/BA,Aa»A2|3BX«*L>OCUMENT •, 2A6|H2A|*PAGC ^<2) 

HL>R6 

29 

3U 



Ttulll i 6 .BUS } 

HDR6 

30 

31 


60b 

f oRMa T 1 /b9X , 1 all PRO^RAmSM 

HOR A 

3] 

32 



(VrUf <6 »BCj 2) 

HDR6 

32 

33 


B02 

FoRMaTI Mi l JM 1H*» ) 

HDH6 

33 

O'i 



nnlTf: Uf803 ) 

H0R6 

3H 

3b 


«03 

FoMMAT<;BA,»,;tASS»|9XMFUNclloNAL*#lbXMApPLIcABLEM 

H0R6 

3b 

36 



A«I Tf16,BUH> ' 

HDR6 

36 

3? 


buh 

FuRMaTUX^iLj number * ,28 X,»OESCRIPTIOnS 26 XMcODE»i 12X, 

H0R6 

37 

3B 


J 

DOCUMENTS* ) 

H0R6 

30 

3V 



AKlTf(6,BU2) 

HDR6 

39 

*40 

c 



HDR6 

HO 

Hi 

c< 

1 « • « « 

iHtTU«N TO SUjiROuTINt HEADS 

H0R6 

HI 

H2 

c 



H0R6 

H2 

H3 



Rt TUkN 

HORS 

H3 

H*4 


1 1 

CoNT iNUt 

H0R6 

HH 

Hb 

c 



HDR6 

Hb 

H6 


>•«*« 

PrtiNT FOOTNOTE AT BOTTOM OF EACh PAGE 

HDR6 

H6 


c 



HDR6 

H7 

HB 



RR 1 Tf U • 806 ] 

HDR6 

HG 

H9 


BOA 

FoHMaT 1 M f 'C l ASS COOtSl USTAGE SYSTEMS 2 bPAYL0A0 MODULE », 

HDR6 

H9 

bU 


• 

»3*ExPERlMENf • ) 

HDR6 

bo 

bl 



Go To 12 

MDR6 

b) 

b2 



EnO 

HDR6 

S2 
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SUBROUTINE HEADR’? 


1 

C 

• • # 


t *«HDR7 

1 

1 

c 

• 

subroutine Ht*0H7 -THE FUNCTION OF THIS ROUTINE IS TO PRINT THE 

• H0R7 

2 

3 

c 

• COUunN HCAOIMhs AT THE TOP of EACH PACE Of THE USE LOCATION SORT 

• HDR7 

3 


c 

• • • 


• ••H0R7 

*♦ 

5 

c 


. . . 

H0R7 

B 

6 

c 


VAK'iABUE definition 

HDR7 

6 

; 

c 



H0R7 

7 

8 

c 



H0R7 

0 

9 

c 


KESaVE SUbSCRIFT of entry in use location HNCNONICHORT 

9 

lU 

c 


code table 

HDR7 

10 

1 1 

c 


■ ■ 

H0R7 

1 1 

U 



t uHP 1 LL k c UA 1 A -bHOPT \ 

H0R7 

12 

t i 



burt'iijOT |NL Mt AON? 

H0R7 

13 

J 



iNCLuUt CUMOn 

H0R7 

IR 

lb 



InCLuDL UbLUcTiLIST 

H0R7 

IS 

1 6 



CoMHoN/bLtfEN/KESAVfc 

H0R7 

16 

1 7 



NpAGp p NPAGt* ♦ 1 “ 

H0R7 

17 

18 



hRlTt 16| lUtJ 

H0R7 

10 

1 V 


100 

f OWHiT ( 1H| ,b2* • ’USE location SORT TABLE'I 

HDR7 

19 

2\J 



bH 1 T(: < 6 1 IbU 1 DAT X iNPAGC 

HDR7 

20 

2 i 


IbO 

FoRHaT 1 /Ba ,AA«A2,<t3A,« ALL P ROfiR AHS • i NT X , « P ASE • 1 1 « 1 1 2 1 

HDR7 

21 

22 



Jj ■ KCbAVt « 3 

HDR7 

22 

23 



KK*KEbAv&46 

- HDR7 

23 

2H 



«VHlt|T(b|2UUHPtTAB<MHUHH ■ JJiKK) 

HDR7 

2H 

2b 


200 

FoMHaTI / 5HX,sAb) 

HDR7 

25 

2b 



ArI T e (b|2bU| 

HDR7 

26 

2/ 


2SU 

f oHHaT I |X 1 I J M lH*n 

HDR7 

27 

2H 



Hn I Tr 1 6 . 26U ) 

H0R7 

28 

2V 

2*0 

FoKHaT 4S8X , »rUHCTtONAL> 1 ISX, 'ENVELOPE D|H',2<IX» t dESI 6N« »HDR7 - 

29 

3U 



WrITe(6,270J 

HDR7 

30 

31 

270 

FoRMaTI 3X,'E| NuHeCM* , tax, 'DESCRIPTION* (aoXi'CCDE *t7X«*«T*t 

H0R7 

3| 

32 



•7x » *L* 'W* »**»*H' ,8X,*HE01A* , aX,*RESP0N5lBrHTT* 1 

HDR7 

32 

33 



NRlTe<*i2S.0| 

HDR7 

33 

3** 



Return 

H0R7 

3H 

35 



’ - . ^ 

— M0R7- 

3S 
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SL BROUTINE HEADS 


t 


buBWQUTiNt. MfAUb 


HDS 

1 

1 

C. • •• 



• •• «HDS 

2 

J 

c * 

,r|Nt Ht^^Ub CALLS tufc 

APHRNOPRIATC NLAOlNa SU0ROUT1NC FOR 

♦ HOS 

3 


t • UbL ht TMi »^LbpLCTIVf HKInT 

routine 

• HDS 


s 

C • * • 



•4*«H0S 

S 

6 


Ir,LLuL>t CuliLsT*LI5T 


HOS 

6 

; 


^0 ^0 { b 1 ] 6 , 2H » 32 1 HU 1 HB ,b6 ) 1 NAR^U 

HOS 

7 

b 

ti 

CfjriT ^ nUL 


HDS 

a 

V 


CALL hLaOkI 


HDS 

9 

1 u 


<3 U t (j « (j 


HDS 

10 

1 1 

\*f 

C uN r 1 NUL 

•• -- • • - 

HDS 

1 1 

l /! 


Call mlauw2 


HDS 

12 

1 ^ 


(» u *0 0 u 


HDS 

1 3 

i S 

2** 

C U N T 1 N U L 


HDS 

M 

1 b 


Call HtA0K3 


HOS 

IS 

1 6 


tio To 0 Lj 


HOS 

1 6 

1 f 

32 

CuNT 1 NUL 


HOS 

17 

\ b 


Call hcaukh 


HDS 

1 B 

1 V 


Uo ^ 0 0 li 


HOS 

\ 9 


HU 

C(jNT f ^UL 


HDS 

20 

2 i 


Call headhs 


HDS 

21 

11 


<jU T 0 Bu 


HDS 

22 


«4ti 

CoNT 1 NUL 


HOS 

23 



Call hCauk6 


HOS 

2R 

2b 


c«o Tq au 


HDS 

28 

26 

b6 

CuNTiNUL 


HDS 

26 

2 7 


Call heaor7 


HDS 

27 

2b 


Cio To ao 


HOS 

2B 

29 

6U 

CQNTyNUE 



MOS 

29 

3U 


return 


HDS 

30 

31 


CnD 


HDS 

3| 
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SUBROUTINE LINCON 


1 

C 


»*LNCN 

1 

z 

t. 

• SU8«0uTlNt UnCON -THIS ROUTINE OETCRH|NES «HETMER TO START A NER 

• LNCN 

2 

J 

c 

• PA(*t Or CONTiiNufc ANITlNa ON TH£ CUHRtNT PA&E 

•lncn 

3 


c 


»«LNCN 

H 

b 

c 

•• — - ■ - 

LNCN 

S 

6 

c 

variable OEfiNiTION 

LNCN 

6 

; 

c 


LNCN 

7 

a 

c 


LNCN 

6 


c 

4.A00 tS THE line COUNTER USCO BY AkL ROUTINES 

LNCN 

9 

10 

c 


LNCN 

10 

\ 1 


CoHPiLER 1 OAT a^ShORT 1 .. . . . — 

- LNCN 

. II- „ 

1 / 


buBHoOTlNL L|NCQN 

LNCN 

12 

M 


Include comon 

LNCN 

13 

1 s 

c 


LNCN 

1 9 

lb 

c- 

>«***OcrLRHlNE IF THIS IS THE TOP OF A NER PABE 

LNCN 

IS 

16 

c 


LNCN 

U 

1 ? 


60 If<LaDD» 1) 9ot^0ilD0 ' - 

- LNCN 

17 - 

la 


90 continue 

LNCN 

U 

19 


LaDO • lO 

LNCN 

19 

2Q 


Call heads 

LNCN 

20 

2 1 


Return 

LNCN 

21 

22 


loo CoNTiNUL 

LNCN 

22 

23 


ItESt • NLIHeS " — 

LNCN 

23 - 

2H 


LaODI ■ tAOa * ITEST 

LNCN 

ZH 

2b 

c 


LNCN 

2S 

26 

c 

•••••UcTErHInE If there is EM0U6H SPACE ON tHE CUBRINT PACE TO 

LNCN 

26 

2/ 

c 

••••• complete printout 

• LNCN 

27 

26 

c 


LNCN 

26 

29 


IMLaD0j-*191 |0«20i20 

LNCN 

^2? 

30 


lU continue 

LNCN 

30 

3 1 


NeTUrN 

LNCN 

31 

32 


20 CoNTiNUl 

LNCN 

32 

33 


LaOO • Q 

LNCN 

33 

3*1 

c 


LNCN 

3H 

3S 

c 

•«»<»«KiTr The footnote at The bottom of The faoc-amo print THt ncb--- 

...LNCN 

-35 - 

36 

PA(iE HtAulNG 

LNCN 

36 

3/ 

c 


LNCN 

37 

36 


200 PRlTE<*i2on 

LNCN 

36 

39 


20> FoRHAn//lX«iN/A OR NA - NOT APPLiCABkEM 

LNCN 

39 

HO 


2SU Call heads 

LNCN 

90 

il 


EaOO«10 tNCN- 

^n\r— 

HZ 


240 ReTUrN 

kNCN 

12 

*13 


EnD 

LNCN 

13 
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MAIN PROGRAM 


1 

C 

* 

• • 


• •MAIN 

1 

z 

C 

• 


HA|N «Th;S lb TH£ mainline 70 THL GSE qATA HANA6EHENT PROGRAM 

• MAIN 

2 

y 

c 

* 



• main 

3 


c 

• 


functions of thc mainline: 
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1 H I ^ ^ h 

I Te t 6 , 1 bin ( T 1 T LE < JW I * JR • ILOR*IHIGhI 
roRNAT(| 6 X| 6 A 6 l 
LaDO • LAOU ♦ I 
Nx ■ IHIGH 
CqNT I NUE 
MlTUrN 

EnO 


«*»«««PRT 7 

fOR •PRT7 
• PRT7 
••••••PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

LNGTM,PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 

PRT7 


1 

2 

3 
H 
S 

4 
7 
B 
9 

10 
I 1 
12 
13 
l <4 
IS 
I A 
17 

la 

19 

20 

2 1 

22 
23 
2H 

25 

26 
27 
2 P 

29 

30 

31 

32 

33 
3H 

35 

36 

37 
3a 
39 
HO 
Hi 
H2 
H3 
HR 
HS 
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SUBROUTINE RELALP 


i C I 

2 C m SUKRUUTiNE Rt:LAt^ bl)BROUTIN«; COhVCKTS RCAL NUMBERS TO •KLUP 2 

3 C • ALP w AriUMER 1C NUMbtRS . . •HULP 3 

H C •♦•••♦••••♦••••♦•••PLLP H 

5 C KLlP 5 

6 SURKULJTlNC RE U A L P C I R E • K T A L » K ) RLLP 6 

7 UrMfcNSiON Ut61 KLLP,_ 7 

a tvML'AL Ri.LP R 

9 00 I J* UK «LLP 9 

10 C NLLP 10 

U Cf • *» *HUD IS A LIBKAR.Y.^.UNci_IQn JLfl, 01YE-.R£SlI)UAL-AUMB£a-F.R0H, 0iyi-SlflN RLLP. I i 

12 C RLLP 12 

13 U < J J -MOD ( U 10) _ - RLLP 13 . 

m l«l/10 RLLP IH 

.15 I CONTINUE. . , . - RLLP .15 

16 1WES«D RLLP 16 

17 lCHK-0 RLLR_17. 

1 a 00 2 J«K •)#->) RLLP 1 6 

19 . I r < ICHK tNE •O.OR p JiCO.4.1 J.GO ..TO J ...... . ... ... ... ..RLLP .19 

20 I F M X 1 J I .NLpO) bO TO H RLLP 20 

2 1 . IXlJl-5 - RLLP. -.2 I 

72 GO TO & RLLP 22 

_2 3 R 1 Ch<-1 RLLP 2 3 

24 3 lx 1 JItilXlJ )*H8 RLLP 2H 

25 S .... IRES»lReS*64tiXiJ> . .. .... .. RLLP... 25 

26 2 continue RLLP 26 

2/ _ 1MK»EQ.6} go to 10 . RLLP 2.7 

2b 1 RE SB n HES *6H4>5 1 RLLP 28 

2y LO R L T U fi.W — K L L P Zi 

30 ENO RLLP 30 
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SUBROUTINE SORTl 


\ 

C •* 


•SRTI 

I 

i 

L » 

SUHHguTiNt SOhTI -THIS KqOTINE DOES *LL tH£ SORTING OT THE 6SE TO 

• SRT 1 

2 

3 

C 6 

b£ fOUnD in STflbC bOHT | 

• SRTI 

3 

H 

c * 


• SRTI 

*♦ 

b 

c ♦ 

NOTtJ this KOuTiNt* CaLLLU FHON SU8R0UTIM|: SORT2t PCRFORHS 

• SRTI 

S 

6 

c • 

th£ Same, soh^ on bst to at found in sta&e. sopt2 

• SRTI 

6 

; 

c •< 


• SRTI 

7 

ti 



SRTI 

R 

y 

<. 

VANjAHLE OEriNMlON 

SRT \ 

9 

1 j 

c 


SRTI 

I 0 

j 1 

c 


SRTI 

1 1 

j ^ 

c 

jr.Er IF this logical VARIAOLC is SET E4UAL TO 

SRTI 

12 

1 i 

c 

••,TRUE.*« SueROUIlNE PRINT2 |S CALLED 

SRTI 

13 

1 H 

c 


SRTI 

IH 

\ b 

c 

IF ♦•.false.** SUeROUTJNE PRlNTl IS CALLED 

SRTI 

IS 

16 

c 


SRTI 

U 

1 7 

c 

Iti^O DtTEHMINes when TME PRINT ROUTINES ARE TO 

SRTI 

17 

1 a 

c 

WHITE BOTH FOOTNOTES ON THE LAST PAGE OF 

SRTI 

1 B 

IV 

c 

THE SORT 

SRTI 

1 9 


c 


SRTI 

20 

2\ 


LONPtLEKli}ATA«SHORT| 

SRTI 

21 

2/ 


SubHoUTlNL SoHTj 

SRTI 

22 



if^CLuOt AbfA(,E,LlST 

SRTI 

23 

an 


InLLul»E PKC'<jr^M#LlST 

SRTI 

2<4 

2b 


\HlLuOt COhUN 

SRTI 

2S 

26 


1 N C L u U E L J C 1 V 

SRTI 

2h 

27 


LOGICAL JRLY 

SRTI 

27 



CgH M oN/TAO/ifNO, JKtT PKET 

SRT 1 

2R 

29 

c 


SRTI 

29 

iu 

C*6 » 

• •OeFUL the KfCURD FILE 5l2L, SP£ClFt KEY flELDSi aNO INITIALIZE 

SRTI 

3U 


t •• • 

• •ThL sORT/mEk(,l PACKAvsE 

SRTI 

31 

32 

c 

• 

SRTI 

32 

33 


Call hs^a^ UoRObi 

SRT 1 

33 

3V 


Call ke y a u • 3 S i 36 , • b * , * a * , u 

SRT 1 

39 

3b 


CALLKtYA4i»,3b»36,^A%«A*,2) 

SRTI 

35 

36 


Call k£ y a < 2 , js > iug * • a • * * a ♦ » 3 i 

SRTI 

36 

3/ 


Call srtopn 

SRTI 

37 

36 


HcAInU H 

SRTI 

36 

39 


liNO-U 

SRTI 

39 



N p A bf «U 

SRTI 

NO 

>41 


i.AOO.0 

SRTI 

HI 

H2 

/b 

RlAUf *4»LRR«V2iENO»d6llAOROS 

SRTI 

H2 

•4 3 

c 

- 

SRTI 

H3 


c# 

••HeLEaSC the mOHUS to bC SORTED OH THE RECORD FILE 

SRTI 

HH 

Hb 

c 


SRTI 

H5 

H6 


Call srthel irorosi 

SRTI 

H6 

V/ 


Go To TS 

SRTI 

H7 


c 


SRTI 

Hfl 

*19 

C*6* 

••Start sort of data file 

SRTI 

H9 

bU 

c 


SRTI 

SO 

SI 

86 

Call srtsrt 

SRTI 

Bl 

S2 

87 

Continue 

SRTI 

S2 

53 

C 


SRTI 

B3 
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SUBROUTINE SORTl ( Concluded) 


bH 

c* • • • 

•HL^«UVt THt SOHTeo «»0RdS fROM THE WEc*>R0 FlOt 

SRTI 

SH 

bb 

c 


SRTl 

ss 

b6 


C*LL SHTRET<*0«OS,»89) 

SRTI 

S6 



Oo Iti l•l.N5TA<»t 

SRTl 

57 

bd 


K£tPx"n*4 1-3 

SRTI 

sa 

bV 


iFfHnOttWtOScTLElKEei'Xl )HOO-1 

- - - SRTl 

S9 

tn 


1 F ( MqO .L(il * 1 ) (lO TO 11 

SRTl 

60 

6 i 

iu 

CoNT jNUt 

SRTl 

Al 

62 


*u 1 Tf « 6 , lOOlMOO ,t INUM 

SRTl 

62 

63 

loo 

FnKM. T ( |Ht 1 loXi ••**EHHO h*«»THC PROCEDO^E TABLE HrS BEEN SEARCHED aSRTI 

63 

6*t 


|N(J StAGENaME t • «2X , a6,2X,«EI nO> 1 • » ^ » A* t A 1 • 2A , • COULD 

not be FOUNO'SRTI 

69 

6b 


2) . . 

— SRTl 

6^ 

6ft 


Go To 87 

SRTl 

66 

67 

ii 

CoNT iNUt 

SRTl 

67 

6B 


If ( NpHO,LtA,Q«OR«NPROoGf:* 61 NRlTC(6|iaO| 

SRTl 

68 

69 

120 

FoRMAT(/ilUX»<*ft«eRWOR«ft* PROJECT CODE N0« IS IN ERROR AND TNEREBYSRTI 

6? 

70 


•CaNnqT uE aCcuuikeo From the pRoCEOURC tasLC*i 

SRTl 

70 

7i 


1 p 1 NpROoLEiO.ORiNPROoOEi 61 NPR0»6 

SRTl 

71 

72 


jump.npro*; 

SRTl 

72 

73 


InI>C*»JUMP-1 

SRTI 

73 

74 


PrO<jmU1- AG^NOUI INDEXI 

SRTl 

79 

75 


PrOGm( 2)« f*GeNDU< JUHPl 

SRTl 

75 

76 


I p < JxEY ) GO TO 90 

SRTl 

76 

77 


Call printi 

- - SRTl 

77 

78 


GO To 87 

SRTl 

70 

79 

90 

Call P«iNT2 

SRTI 

79 

8U 


Go To 87 

SRTl 

60 

8 1 

09 

Ip < JtcEV) GO TO 9S 

SRTl 

Al 

62 


IENU.I 

SRTl 

62 

63 


Call heaoni 

SRTl 

83 

64 


6KlTfrf6,llO) 

SRTl 

69 

85 

i 10 

FoRHaT ( INI >f X • completion Of STAOE SOKT I •*«•! 

SRTl 

65 

66 


Go To 99 

SRTl 

86 

67 

95 

IeND.1 

SRTl 

87 

88 


Call mEaok2 

SRTl 

68 

89 


Hr 1 Te lA, 1 t n 

SRTl . 

. 89 

?U 

i \ 1 

FoHMaMIHUVxi’*** comfletjon of staoe sort 2 ••••» 

SRTl 

90 

91 


Go To 99 

SRTl 

91 

92 

92 

WHlTel6ol09l 

SRTl 

92 

93 

109 

roHMATUHUloXi^tft^ERRORftft# ERROR RHUS REAOInS DATA 

base file HtlSRTl 

93 

94 

99 

Return 

SRTl 

99 

95 


LnO .. - - 

.-SRTt- 

„9B 
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SUBROUTINE SORT2 


1 C I 

i t • bUHHOijTlNt bl>HT2 -THIS WOUTlNt SfcTS 1 HE VARAItiLE Ktt FoR PFHfORH- ♦SRT2 I 

j c • iN() stage Sum 2 »srt2 3 

^ c ■«••«••••«««•***•««•««»*♦***••«*« H 

b C SRT2 S 

6 t VAK|AULE OEFInJTIoN SKT2 « 

/ C •«•••««• •««••*«••• SRT2 7 

a C JKtY WHEN SET tUUAL Tu ••.TrU£,»« A STAGE SORT 2SRT2 R 

V C CAN THEN Bt PERFORMED SRT2 R 

lU C SRT2 10 

II SuOR()UT|Nt SQRT2 5RT2 l| 

M Logical jaLT srt2 12 

JJ Co^^ON/TAU/IeNQ| JKEY , pKtr SRT2 13 

!*♦ Jfcty*.TMUE. SRT2 IR 

lb Call SOHTl SRT2 IS 

16 H t turn 5RT2 1 6 

I J EnO 5RT2 1 7 
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SUBROUTINE SORTS 


1 

C 

• •• 


.•SRT3 

1 

1 

C 

• 

bUyHOuTiNt SUkT3 «TH|S ROUTINE DOES *EL THE $0RT|NC OF THE «SE TO 

• SRT3 

2 

J 

c 

• Ot fOUnU in the F'LUIO HE0|* sort 

• SRT3 

3 

H 

c 



'•SRT3 

*♦ 

b 



CgHHiLEKIUATi-SHOrT) 

SRT3 

S 

6 



buBHoOTiNt bo«T3 

SRT3 

6 

7 



Include colilsT 

SRT3 

7 

B 



ImCLuOC COHOki 

SRT3 

R 

9 



Include eou i v 

SRT3 

9 

iU 



Include Xh£T*8«usT 

SRT3 

10 

1 1 


- 

CortMoN/THHeE/hEbAVE ^ 

• SRT3 

1 1 

1 ^ 



LaOO • 0 

SRT3 

12 

i J 



NpACit • 0 

SRT3 

13 

19 



Ns£T «0 

SRT3 

IH 

1 & 



ChMEd ■ DfcSCOpINUMBERI 

SRT3 

IS 

\ 6 



Do lO 1 ■ I.HECODS 

SRT3 

1 6 

1 7 



M^S A V E ■ t 1 • 7 ) *6 - 

SRT3 

17 

la 



If 4CKM|iu«Ey«TABHED{MESAVEn 60 tO 30 

5RT3 

1 R 

i V 


10 

CqNT I NUL 

SRT3 

19 

2U 



AhITe(«i 10UI CNnCD 

5RT3 

20 

21 


loo 


5RT3 

21 

22 



Re Torn 

SRT3 

22 

23 


30 

Continue 

SRT3 

23 

2** 



^l£Ti • TaPHcDIMESAVE ♦ II 

SRT3 

29 

2b 



Xl£T2 ■ TAL^HeDIMESAVE ♦ 2 } 

SRT3 

2S 

26 



XtET3 ■ TaBHeOIMESAVE*3| 

SRT3 

26 

2^ 



CaCL RSzAUAoRDS) 

SRT3 

27 

ae 



CaLL !n E T rt < 2 * jS I i Oo » * a ’ I » a ’ I i ) 

SRT3 

2S 

29 



Call sRtopn ... 

SRT3 

29 

3U 



Rt«UO ■» 

SRT3 

3U 

3 1 


HO 

HE*D 1 R *ENU«!»Q 1 rords 

SRT3 

31 

32 



Call srtReli«oros> 

SRT3 

32 

33 



<>0 To **0 

SRT3 

33 

3H 


su 

Call srtsrt 

5R73 

3H 

3b 


S2 

Call srthet (woRos,i7oi ... . 

SRT3 

35 

36 

c 



SRT3 

36 

37 

c< 

1 • • • i 

*lNtTtAL|ZE 

SRT3 

37 

3a 

c 



SRT3 

36 

39 



1 • 0 

5RT3 

39 

SU 


1 

CoNT iNUE 

SRT3 

HO 

Hi 



1 • I ♦ 1 , 

SRT3 

Hi 

H2 

c 



SRT3 

H2 

H3 

c« 

f# • # 1 

•ChECk RERAlNtNIi FIELD S|ZE 

SRT3 

H3 

HH 

c 



SRT3 

hh 

Hb 


2 

Continue . 

SRT3 

H5 

H6 



If U .EU. 1 2) gO TO S2 

SRT3 

H6 

9 7 



If<*LET|«MEOI All) ) l.Ail . . 

SRT3 

H7 

9S 


6 

Continue 

SRT3 

H9 

99 



1 • 1 ♦ i 

SRT3 

H9 

bU 



If U .EQ. 1 2) GO TO S2 

SRT3 

So 

SI 

c 



SRT3 

SI 

b2 

c« 

1 « • « 1 

•Check neat letter 

SRT3 

S2 

S3 

c 


■ . . ... — ,, 

SR73.. 

S3 
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SUBroUTINE. SORTS (Concluded) 


bs 



. If 1 11} 2, 1 1 ,2 


5RT3 

S*4 



1 A 

CONT ,NUL 


5RT3 

bS 




' 1 ■ I ♦ 1 ^ 


SRT3 

56 




If ( 1 1 2 ) GO TO bZ 


5RT3 

57 

S8 

c 




SRT3 

58 

bV 

C • • 

• • 

• CHtCf Tm 1*«C LtTtER 


SRT3 

59 

b J 

C 




SRT3 

60 

6 1 



If t kLET J-M^DI A< 1 ) 1 2,l2t2 


SRT3 

6 1 

b^ 


12 

CgNT INUL 


SRT3 

62 

6 J 



NsEI.I 


SRT3 

63 

6H 



Call print3 


SRT3 

6^ 

6 b 



<*0 ^0 


5RT3 

6S 

bb 

c 




SRT3 

66 

b/ 

c 




SRT3 

67 

bb 

c 




5RT3 

68 

69 

Cb* 

• # 

•HaVL SLaHCPLd OATA-THt SOHT IS NU* COmPLETC 

SRT3 

69 

/O 

c 




SRT3 

70 

/ 1 


70 

CoNT jNUt 


SRT3 

71 

; i 



|f(MsET.ty.J|b«lTL<b,36lCHMtO 


SRT3 

72 

M 



f uRMaT ( 7/ 1 UX , • ••'•MASTEK ^|Lt CONTAINED 

NO UATA WITH • « A6i * 

fluid MSRT3 

73 

;h 



ILoU sort ••• I ) 


SRT3 

79 

7b 



Ar 1 Tf ( 6 »37 ; 


5RT3 

75 

7b 


37 

FqHM*TI |H| ,»x. ' completion Of MEDIA 

SORT •••#) 

SRT3 

76 

?f 



Hi turn 


SRT3 

77 

7b 



EnO 


SRT3 

78 
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SUBROUTINE SORT4 


» C I 

2 C * SUyNOuTlNt SIIrTH >THtS ROUTINC DOCS ALL THE S0RT|N« OF THC «SC TO aSHTH Z 


3 

C « dt fOUnU in ^ONCTtONAt COOC 

SORT 



♦ SRTH 

3 

*♦ 

C • • •' 







H 



Col4HiLLKlUATA«bHOHT > 


, . 


• ■ — 

SRTH 

6 

6 


buaWrjUTlNt JOKTH 





SRTH 

6 

1 


hgCLuOE CUhO.M 





SRTH 

7 

a 


Include Eguiv 





SRTH 

e 

y 


IrgCLuOe CODtsT 





SRTH 

9 

10 


UCLuOE: fUNTABiLlST 





SRTH 

10 

\ 1 


CoMHoN/pOUfl / 1 SAVE 


- 


™ 

SRTH 

It 

\z 


NpAb^i ■ 0 





SRTH 

12 

I 3 


LaOO » 0 





SRTH 

13 

i H 


NsET.O 





SRTH 

IH 

1 b 


FuNCk ■ DLSCOO (NOhBEK 1 





SRTH 

IS 

1 


Uq lo 1*1 ,NUCODS 





SRTH 

U 

1 7 


IjAVe • 





SRTH 

17 

1 B 


If lEuNCK.EC.FUCOTAHSAVtn GO 

To 

30 



SRTH 

la 

iv • 

10 

1 NUt 





SRTH 

19 



6 k 1 l£ 1 6 , 1 00 1 FUnCK 





SRTH 

20 

21 

100 

FoHMaT1//J0X,i*#*DESCRIPTER NAHEMf2X,A4t2X|MN 

CRR0R#6*t ^ 

SRTH 

21 

2 ;^ 


H t T U R N 





SRTH 

22 

23 

30 

CoNT 1 NUE 





- ■* 

SRTH 

23 



Call H5Z61 iiAo«os) 





SRTH 

2H 

2 b 


Call k.e t«v i i 23 >36 • • a* , • » i > 





SRTH 

2S 

26 


Call ket 6 i z >36 > t oa > • a* > • a* ,2) 





SRTH 

26 

2 / 


Call srtohn 





SRTH 

27 

2 B 


R r ) >. n u 

n« w 





SR TH 

ZB 

2 V 

HO 

HtAOcH*tN|) - bOl 60WDS 



— . 

.... .... 

- SRTH 

29 

30 


Call srireliaqrosi 





SRTH 

30 

3 1 


Oo To Hu 





SRTH 

31 

32 

SO 

Call srtsrt 





SRTH 

32 

33 

&2 

Call SRTRE T tgiOROS«$7U) 





SRTH 

33 

3H 


If (F uNCA.ett>FCTcDE) GO TO 60 





SRTH 

3H 

3b 


c«a To S 2 





SRTH 

3S 

36 

60 

Continue 





SRTH 

36 

37 


NsCT.I 





SRTH 

37 

3d 


Call printh 





SRTH 

36 

39 


<•0 To &2 





SRTH 

39 

90 

70 

Continue 





SRTH 

HO 

HI 


If (NsET.LU.U|WR1TE(6,7T|FONCK 





SRTH 

HI 

H2 

79 

Fo«M*T<//IOA, ♦•♦•master file COnTAJNEO no data 

WITH * 

I X 6 1 • 

rUNCTlOSRTH 

H 2 

H3 


INaL cOOL sort****) 





SRTH 

H3 

HH 


RRlTe<6,B0) 





SRTH 

HH 

Hb 

BO 

Format ( IHJ , VI ,*••• completion 

OF 

functional code sort 


SRTH 

H5 

H 6 


ReTUkM 





SRTH 

H 6 

H7 


CrO 


. 

. 

. - 

SRTH 

H7 
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SUBROUTINE SORTS 


1 C J 

^ (. • bUtiRUitTiNt SukT5 -this HOUTINE DOES ALL THE SORTING OF THE GSE TO (SKTS 2 
J C • tit fOOhU in The class C0I>E sort »SRT5 3 
-I. C <( 


b 


1 LEK (OAI a.SHORT > 


- --■ SRT& 

S 

6 : 


buBHoOTiOt SoKTS 


SRTS 

6 

7 


InCLoOE Cum On 


SRTS 

7 

b 


IncLuoE tuoiv 


SRTS 

Q 

9 


InCLuOE COOtsT 


SRTS 

9 

lU 


UCLuOt CLAScOiLlST 


SRTS 

10 

1 1 


CoHMoN/flVt/|HAVlT 


SRTS 

1 1 

\l. ■ 


LaOO - u 


SRTS 

12 

J J 


NpA(ji ■ 0 


SRTS 

1 3 



Nst T ,U 


SRTS 

1 4 

Ib . 


Oo 1 n 1 • i * jucoDS 


SRTS 

IS 

1 6 


IhA V 1 T - n #4 1 *3 


SRTS 

17 

J 7 


If ( Oc^SCuO iNiUiieEH > »LQ«C<-AC0D (IHAV 1 T > 1 QO to 3U 


SRTS 

1 R 

1 n 

\o 

CqNT I NU t 


SRTS 

1 9 

IV 


lVk 1 Tt U » 1 UO ► Dt^>COO C NUMOtH > 


SRTS 

20 


luu 

► 0^MAT<//lLX,»*»*t)EStRlPTER NAHC* 92 X«AA» 2 AtMN 

iRROR*#*« 1 

SRTS 

2l 

i \ 


Rt T Op N 


SRTS 

22 

ll 

30 

CoNTiNUL 


SRTS 

23 



Caul HS2h 1 lAoRObi 


SRTS 

24 



Call key«< i s . js . 36 , « a* • I > 


SRTS 

2S 



Call KEYrt < 2 , 3b • loa , • a* f • a* I 2) 


SRTS 

26 

26 


Call srtqpi. 


SRTS 

27 

27 


Rt^lNO H 


SRTS 

24 


40 

RfcAO c 4 1 LND«&0 1 WORDS 


SRTS 

29 

2 


Call sr^rlUwonosi 


SRTS 

30 

JU . 


bo T 0 4o 


SRTS 

3J 

3 1 

bU 

Call srtSrT 


SRTS 

32 

32 

b2 

Call shtkli ( ^ivohos , »7 j i 


SRTS 

33 



If UcO0L«L(H»NCClL>e> GO TO 60 


SRTS 

34 

3H 


Go To S2- 


SRTS 

3S 

3b 

60 

CoNTiNUL 


SRTS 

36 

3 6 


NsET.I 


SRTS 

37 

37 


Call prints 


SRTS 

3a 

38 


GO To S2 


SRTS 

39 

39 

70 

CoNTtNUL 


SRTS 

40 

4U 


lflNsCT*EUR0|6RlTU6»3BnC0DE 


SRTS 

41 

4 I 

J8 

f OWN a T ( // » OX , • •MAST tH file CONTAINED NO DATA 

WITH CLASS 

CODEf t I2SRTS 

42 

42 

1 

1 • ••• M 


SRTS 

43 

43 


ARlTt(6,37l 


SRTS 

44 

44 

37 

Fo«MaT(1HI ,9.*, COHPLETIOM Of CLASS COoE SO«T ••••) 

SRTS 

4S 

4b ' 


RETUrN 


SRTS 

R6 

46 


LnO 


SRTS 

47 


83 



SUBROUTINE SORT6 


J 

C 



• *«SRT6 

1 

2 

c • 

SUbROUTlNL TO f|NO THE GSt INroRMATION ASSOCIATED 

WITH THE 

»SRT6 

2 

3 

C 6 

APFLIcABLt OOCUrttNT SORT 


• SRT6 

3 

*♦ 

C •i 



6i6SRT6 

9 

b 

c 

- - - •- 

— ► — 

SRT4 

5 

6 

c 

variable OCFInITIoN 


SRT6 

A 

1 

c 


-- 

5RT6 

7 

6 

c 



SRTA 

6 

V 

c 

URr DCTENHtNCS IF THE SPECIFIED APPLICABLE 

SKT6 

9 

lu 

c 

docuhcnT was found 


SRTA 

10 

M 

c 

• • • - - - - • - - -• . 

— 

SRT4 

11 

1 2 


Compiler (daTa-short) 


SRT6 

12 

1 i 


■SuaRoUTlNt SqKTa 


SRT6 

13 

1 H 


InCLuoe cori;n 


SRT6 

19 

lb 


InCLuOE EyUlv 


SRT6 

IS 

1 6 


Include codesT 


SRT6 

lA 

1 7 


CoMMqN/SU/ IFHH6 

• . ■ - 

SRT4 

17 

id 


Data blank/* ♦/ 


SRT4 

la 

19 


LaUO • 0 


SRTA 

19 

2U 


NpA(i£ « 0 


srta 

20 

21 


1fMR6 • U 


SRT4 

21 

22 

c 



SRT6 

22 

23 

C66i 

>**lt.RR IS VaMaBLE AHICH OETEBNINES IF SPECIFIED 

APPLICABLE 

SRTA 

23 

2H 

c**( 

document AAs found 


SRTA 

29 

2b 

c 



SRTA 

25 

26 


rtRR ■ u 


SRTA 

2A 

27 


Remind h 


SRTA 

27 

2a 

c 



SRTA 

26 

29 

c**< 

►•♦«£AD tape OATA from f|L£ 9 


— ^RTA 

29 

3U 

c 



SRTA 

30 

3 1 

1 

Rt AD ( 9,tLND*'9g 1 WoRpS 


SRTA 

31 

32 


1«1 


SffTA 

32 

33 

c 



SRTA 

33 

39 


(••oetermine Which gse eo«ipmeht is associated riTh specified 

SRTA 

39 

3b 


aFFlICABlE oOtUMENT 

. 

. SRTA 

35 

36 

c 



SRTA 

36 

3/ 

9 

If 1 ApDOC n I^BLANK MOf 1 » lu 


SRTA 

37 

3tt 

10 

CqNT I NU t 


SRTA 

38 

39 


iF(ApOOc( n-oESCOOi number n l l tl2| ll 


SRTA 

39 

9.U 

1 1 

lm\*2 


SRTA 

90 

H i 


UO To 9 

. — 

. SRTA 

91 

92 

12 

Jb 1 ♦ 1 


SRTA 

92 

93 


If 1 APDOCUI-OESCOZI NUMBER 1 ) 13« |9»13 


SRTA 

93 

99 

13 

CoNT iNUt 


SRTA 

99 

Hb 


ImJ* i 


SRTA 

95 

96 


(iO To 9 


SRTA 

9A 

9/ 

c 


. 

SRTA 

97 

96 


>**CaLL SUuRuUTjNE to print INFORHaTION associated 

with specified 

SRTA 

9a 

99 


applicable document 


SRTA 

99 

5U 

c 



SRTA 

SO 

bl 

19 

Call PRlNTA 


SRTA 

51 

b2 


leHR • JERR ♦ 1 


SRTA 

52 

&3 


o 

o 



SRT4 

53 
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SUBROUTINE SORT6 ( Concluded) 


bH 

bb 

b6 

b/ 

ba 

S9 
6U 
6 i 
hi 

6 J 
6H 
6b 

6 / 
Ati 

7 » 
}l 
7 J 
7H 
;b 
76 
7 7 
7 b 

/y 

ttU 
b 1 
Hi 
83 
8H 
tib 
H6 
d/ 
88 
ev 


98 Cl)NT |NUE 

ieR>^ Value is zeRu , appl I c AeLt oocuntNi «»as not found 

IeRR value is aWEATtR than ZEROiAPpLKABLt OOCUHENT «AS FOUND 

If I URR-l I Z0|21 .21 

••••Print error - document specified could not be Found 
WrITe(A*6UM 0ESC0U< number ) #0ESCO2|NUmBER) 


20 

601 


FoRHaTI iHl iloX»’***ERR^R *** document 
I ) 


i2A6 , 


iHt^UkN 10 SUhHUUMNL merge 


Return 
21 Continue 


»print footnotes for last page 


Ar 1 T E t 6 .602 ) 

60Z FoRMATI//|X»fN/A 
AkI Tf t A.8U6) 

faU6 F0HM4 TI ix**claSs cooes: 
i • j.LiPEhImEnt* ^ 


OR NA • NOT applicable*! 


I .stage systems 2«,PAYLOaO module 


>Ph1NT message That document SORT IS completed 


AkI Tp 16>6UL) DtSCOD I NUMBER! , DESC02 I NUMBER | 

6UU f qHM A T I I H I k i OX I • • • *COMPlE T I ON Op APPLICABLE DOCUMENT 
I 2 aG I t SORT • •• O 


»KeTUnN to subroutine merge 

RfcTURN 

EnU 


SRT6 

54 

SRTA 

55 

SRT6 

54 

SRT6 

57 

SRTA 

Sfl 

SRTA 

59 

SRT6 

60 

SRTA 

61 

SRT& 

62 

SRT6 

63 

SRTA 

64 

SRT6 

65 

SRT& 

66 

SRT6 

67 

SRTA 

6R 

SRT6 

69 

SRTA 

70 

SRTA 

71 

SRT6 

7 2 

SRTA 

73 

SRT6 

74 

SRTA 

75 

srta 

76 

SRTA 

77 

5RT6 

70 

SRT6 

79 

SRT& 

eo 

SRT& 

Bl 

SRTA 

B2 

SRT6 

03 

5RTG 

B4 

SRTA 

65 

SRTB 

B6 

SRTA 

B7 

SRT6 

60 

SRT4 

B9 
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SUBROUTINE SORT? 


1 

C 




1 

1 

C 

• 

SUBROUTINE: SurT7 -THIS ROUTINE OOES ALL THE SORTING 

OF The 6SE to •SRT? 

2 

s 

C 

• Ut F0 Un17 in the use location sort 

• SRT7 

3 


c 




*4 

b 



CqMP |LER <0AT A-SHONT 1 . - 

SRT7 

- 5 

6 



Subroutine Sqmt? 

SRT7 

6 

7 



InCluoe COHOn 

SRT7 

7 

d 



iNCUuklE tUUly 

SRT7 

R 

V 



iNCLuOe CuOtsT 

SRT7 

9 

la 



Include u;>loct«l15T 

SRT7 

10 

1 \ 

- 

•* 

CoRMqN/SE VEH/KEbAVE — - • 

SRT7 

It 

\i 



L*Oi> - 0 

SRT7 

12 

1 i 



NpAGe ■ 0 

SRT7 

13 

1 ^ 



nsEt.o 

SRT7 

1*4 

lb 



ChLOc ■ OESCoOl NUMBER) 

SRT7 

ts 

16 



Uq 1 0 1 ■ 1 *LOCOD 

SRT7 

t6 

1 1 



RESAwt 

SRT7 

1 7 

1 d 



lFlCHLOc.Lb.pLTAB(KeSAVei| 60 TO 30 

SRT7 

18 

19 


10 

CoNT |NUE 

SRT7 

19 




Ah luoi chloc 

SRT7 

20 

21 


lUU 

FoHMATI//10A,t*.*DESCRlPTCR NAMCI • 2X • A* »2X • ' 1 N CRROR***?) SRT7 

21 

22 



RlTUrN 

SRT7 

22 

2J 


30 

CqNT I NUt 

SRT7 

23 

2*4 



Call rs2R ( I aqro^ ) 

SRT7 

2R 

2b 



Call KEYW<2«35o|OB«4A»f 4A««n 

SRT? 

25 ^ 

26 



Call srtopn 

SRT7 

26 

27 



RlAInO *4 

SRT7 

27 

2d 


4U 

RpAOj H jENU-bol^^^ORDS 

SRT7 

2b 

2V 



Call SRjRtLi*gRos j 

SRT7 

29 




<J 0 To *4U 

SRT7 

30 

31 


50 

Call srtskt 

SRT7 

31 

32 


52 

Call srtret « aqhos ,«*oi 

SRT7 

32 

3J 



UsCKi ■ PLTAb UeSAVE^I ) 

SRT7 

33 

3H 



DsCK 2 ■ PLT Ae<KESAVE*2» 

SRT7 

39 

35 



I-O - . . * .... 

5RT7 

35 — 

36 


1 

CqNT I NUE 

SRT7 

36 

37 



1 - I M 

SRT7 

37 

3d 


2 

Continue. 

SRT7 

38 

3v 



ir( 1 .EOoiai GO TO 20 

SRT7 

39 




1f(UsCK1>USLoC( n > I |A»i 

5RT7 

HO 

*41 


6 

Continue 

■ - SRT7 

Hi 

H2 



1 • 1 ♦ 1 

5RT7 

H2 

H3 



1f(UsCK 3 > UsUOCI 1 >l2tM »2 ... 

SRT7 

93 

H*4 


1 1 

Continue 

SRT7 

99 




NsLT.I 

SRT7 

95 

*46 



Call print? 

SRT7 

96 

*47 



50 T 0 5 2 . _ 

SRT7 

97 

*4S 


20 

Continue 

SRT7 

90 

H9 



5q To 52 

SRT7 

99 

bo 


70 

Continue 

SRT7 

50 

51 



lFlNsCT.E0f0|«R|TEi6t3AlCHL0C 

SRT7 

51 

52 

36 

FoRHaT«// 10A. f •••raster data FILE CONTAINED NO DATA 

» with NA4t4 USSRT7 

52 

53 


A& location SoRT*»«»| .. . .. 

SRT7 

51 

5*4 



RrITe I6»37 4 

SRT7 

59 

55 


37 

FoRHaTUHI ,»x, •♦•♦ completion of use location sort 

SRT7 

55 

56 



Return 

5RT7 

56 

57 



CnD 

5RT7 

57 
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PROCEDURE TABLE 


PECOOl 

MAIN PHoC 




tble 

1 

UOO^ 

C 


• • • 



aaTSLE- 

, 2 — 

UUQi 

c ♦ 

So«t 

COuE mnemonic 

PROCEDURE TAttLE 

• tble 

3 

UDOH 

c • 





♦ tble 

R 

UOUb 

c # 

TmE array «*kmoom 

contains THC STANOaHD sort coot MNEMONICS 

♦ tble 

s 

OOU6 

c • 





♦ TBLE 

6 

UDU / 

c • 



MNEhON I c 

TYPE or SORT 

• TBLE 

7 

uuua 

c ♦ 






♦ TBLE 

e - 

UUU^ 

c ♦ 





♦ tble 

9 

UOU 

L • 



ST*6tJ 

staoe sort I 

♦ TBLE 

10 

UOl 1 

c • 



STAGE2 

STAi»E sort 2 

• tble 

1 1 

uou 

c * 



mEO 1 AS 

FLUID media sort 

♦ tble 

12 

uo) 

c • 



f UNcTL 

rUNCTlONAL COOC SORT 

♦ tble 

1 3 

UUI *♦ 

c • 



CLAsSC 

CLASS Coot SORT 

• tble 

IH - 

UU 1 b 

c • 



APPoOC 

APPLICAOLt OOCUNENT SORT 

• tble 

IB 

UO 1 6 

c • 



ObttO^ 

USE LOCATION SORT 

• TBLE 

U 

UO i 7 

c • 



SUNaKY 

MASTER summary TABLE 

♦ tble 

17 

UO 1 b 

c • 





• tble 

IB 

UO 1 V 

c • 



ROUTINES That use main p«oc 

♦ tble 

19 

UUi!U 

c • 





♦ tble 

2o • 

U02I 

c • 




MAINUINE 

• tble 

21 

UQ22 

c • 





♦ tble 

22 

UD23 

c 


« • « 



fc^TBLE 

23 

U02H 


UTEgER 

XhOU( ) 


TBLE 

2H 

002b 


Data 

XM0U/*5tA<3EI * 

• *STAfiE2* , ♦MEOI AS* » *f OM cTL' , ’ CLASSC » « *APP00C* , 

tble 

2S 

UQ26 


• fUStLOC 

*l♦5uMART• 

,1 •/ 

tble 

2 6 - 

0027 

END 




TBLE 

27 

Ptu02b 

COutST P«0r 




tble 

2S 

U029 

c 


• « * 



►•tble 

29 

UU JO 

c * 

SqRY 

code arrays and OESCRIPTER name PHOCEOUHE TABLE 

♦ tble 

30 

003 1 

c • 





• tble 

31 

0032 

c • 



variable 

definition 

• tble 

32 - 

0033 

c • 





♦ tble 

33 

U03*^ 

c • 





♦ tble 

3R 

U03b 

c • 



MA XsRT 

SETS the maximum NUMBER OF SORTS TO BE 

♦ tble 

3S 

0036 

c • 




PERFORMED PER HUn 

• tble 

36 

003/ 

c • 





• tble 

37 

0036 

c • 




CDE$rT 

THIS array contains the sort Code 

♦ tble 

3B - 

CJU3V 

c • 




MNEMONICS IN ThE ORDER SPECIFIED 0Y THE 

• tble 

39 

UUHU 

c. • 




USER 

• tble 

HO 

UOH 1 

c • 





♦ tble 

HI 

uOS2 

c * 



NARgO 

CONTAINS THE SORT CODE MNEMONIC FOR ThE 

• tble 

H2 

U0‘<3 

c » 




CURRENT SORT 

• tble 

H3 

KJOHH 

L • 





• tble 

hr 

UOHb 

c ♦ 



DEScOO 

contains the first RORO of the OESCRIPTER 

• Tble 

H5 

OOH6 

c * 




NAME FOUNO ON THE SORT CODE MNEMONIC DATA 

• tble 

H6 

U0H7 

c • 




card 

• tble 

H7 

UOHB 

c • 





• tble 

H0 

U0H9 

c • 



DESC02 

contains THE SECOND WORD OF THE 

• tble 

H9 

uu&u 

c ♦ 




OESCRIPTER NAME 

♦ TBLE 

SO 

CJOB i 

c • 





• TBLE 

51 

UUb2 

c • 



NL'HgtR 

IS the inte<»er code for The current sort 

• tble 

52 

UUb3 

c * 





• TBLE 

53 


c ♦ 



KUMsRT 

actual number oF SORTS The user requests 

• tble 

5H 

UUbb 

c • 





• tble 

5S 

U0b6 

c ♦ 



routines That use cooest proc 

• tble 

56 

U(Jb7 

c • 





• tble 

57 

UObb 

t ♦ 




HEaUS 

• tble 

5B 

UUb‘7 

c • 




hEaUR6 

♦ tble 

59 
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PROCEDURE TABLE ( Continued) 


UQ6U 

C • 

mainline - 

• TBLC 

60 

1 

c • 

n£R<iE 

• TBLE 

61 

UU62 

c • 

SOHTJ 

• TBLE 

62 

0064 

c • 

SOMTh 

• tbue 

63 

u u 6 

c • 

SURTS 

♦ tble 

69 

LiU6b 

c • 

S0RT6 

♦ tble 

6S 

0U66 

c • 

SORT? 

• tble 

66 

U067 

c • 


• tble 

67 

0U6a 

c 


i»TBLE 

- 66 - 

U06V 


PaNAmETER WAkSRT ■ 8 

tble 

69 

U07U 


InT£g£« CDEbHT 

TBLE 

70 

U07i 


CoHHoR/COOE/cOESRT(HaxSRT) ,NaR«U,DESC0D< MaXSRT) iNUHBERiNUHSRt 

Tble 

71 

UU72 


CoM«ON/COOE/otSC02(HA*SRT> 

tble 

72 

UU73 

tND 


TBLC 

73 

PEU07H 

*ST*i£ p«OC - 

tble 

- m 

U07b 

c 


>»tble 

75 

UU76 

c • 

ST*6eNA«1E PKoCEOURE TABLE 

•tble 

76 

UU77 

c • 

The aRAAV (laSETLE'* contains The various gse stagcname titles 

• tble 

77 

U07S 

c • 

• tble 

70 

U07V 

c • 


• tble 

79 

UUdO 

c • 

variable definition — 

• tble 

BQ 

ucai 

c • 


• tble 

B| 

UUU2 

c • 


• tble 

B2 

0083 

c • 

NSTaGE the numoer of STAGCNAHeS appearing in 

• tble 

63 

uoe«« 

c • 

this table * 1 

• tble 

BH 

oues 

c • 


• tble 

05 

0UB6 

c • 

routines That use astace proc 

•tble 

66 - 

0087 

c • 


• tble 

B7 

0UB8 

c • 

master 

• tble 

ee 

UU0V 

c • 

HtAORi 

• tble 

B? 

0U9U 

c • 

H^AORa 

• tble 

90 

0091 

c • 

SORT 1 

• tble 

91 

0092 

c ♦ 

PR INTI 

• tble 

92_ 

0093 

c • 


• tble 

93 

009*< 

C • 64 


• tble 

99 - - 

O09b 


Integer gsftlE<ioo» 

TBLE 

95 

0096 


NsTAgE-12 

tble 

96 

0097 
' 0098 

... 

OaTA GSETLE/i • • ***unkn* , *oan** »*• ♦ 

• ilSRA *.»S. R. 1 , •bDOSTEI . «R ♦ 

tble 

-TBLE- 

97 

90 

0099 


* ,*ET '.‘EaTERNI.’AL TANf|*K • 

tblc 

99 

0 100 


• »*SSHE •*»SHUTTL*t*E MAlN«,« EN«N* • 

tble 

100 

0101 


• **AM AlRLO*,*CK HOO«**ULt • 

TBLC 

101 

0102 


• ,tORS ORBIT«,*AL WOR<««KSHOP • 

TBLE 

102 

0103 


• i»ATH S’APOLLO't’ TELE*«»' HOUNT* 

TBLE 

103 

0 109 


* i«HOa HOA -»»* 

—tble 

lO-h— 

0 103 


• I*|U INSTR* »*UMENT ••«UNIT * 

TBLE 

105 ' 

01Q6 


* tiS-JC *,♦ S-IC •«*STASE *t* * 

tble 

106 

0 107 


• »«S-|VB S*S-IVb », ’STAGE »,* * 

tble 

107 

0108 


• US-2 *1* S-ll 'STAGE *t* V 

tble 

100 

0109 

c 

* iTHlS SPACE IS FOR ThE CONTINUATION OF GSE DESCRIPTIVE 

tble 

109 

Olio 

■ c 

♦ ■ f 

tble^ 

1 10 " 

U 1 1 1 

c 

• 1 

TBLE 

1 1 ! 

0 112 

c 


tble 

1 12 

0 113 

c 

• 1 

tble 

1 13 

U 1 M 

c 


tble 

1 19 

0113 

c 

• • 

tble 

1 15 

0116 

■■ c 

* 1 - . - . 

TBLC 

U6 

U 1 1 7 

c 

♦ iTHlS SPACE IS FOR THt CONTINUATION OF GSC OESCRIPTIVE 

tble 

117 

0| IB 

end 

tble 

U0 
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PROCEDURE TABLE ( Continued) 


PEU 1 1 

AMLTAb pHOf 





tble 

i 19 

U [ 20 

C 

• • 






••tble 

120 

J 1 2 1 

0 

• 

fLUlo MtOlA pHOCeoUHt TABLE 





• tble 

121 

U] Z2 

c 

« 






• tble 

122 

U 1 23 

c 

• 

Thl aR«at •»TAeMeo»» contaJns 

The various fluid 

media 

CODES 

• TBLE 

123 

U 1 24 

c 

« 






• tble 

124 

U1 2b 

c 

• 

V^R 1 ABLE 

OEF InIT I ON 



• tble 

I2S 

U1 26 

c 

♦ 






• tble 

126 

U12/ 

c 

« 

Mtcoos THE MUMBfcK OF FtUlD NEdUS APPEARIMO |M 

• tble 

127 

01 2a 

c 

« 

THIS table 





• tble 

I2S 

0 i 2V 

c 

■ 






• tble 

129 

U 1 30 

c 

♦ 

routines that use 

xmetad 

PHOC 



• tble 

130 

Ui 31 

c 

« 






• tble 

131 

01 32 

c 

6 

HtADRi ANO S0HT3 




• tble 

132 

U1 33 

c 

• 






• tble 

133 

0 1 3H 

c 

♦ • 






••tble 

134 

01 3b 



Ui MLn5 ION T AbMEu { 2b2 1 





tble 

135 

0 136 



MtcO[)S«22 





TBLE 

136 

013/ 



OATA<TAdHtOUl»‘^*l*126)/ 





TBLE 

137 

01 38 



• ‘ G* • *N* , • 2» , •6ASE0U* 

• • S N I TH 

* ♦♦OGEN 

* 1 


tble 

1 38 

0139 



• «LN2 • I * L • I ' N • , • 2 ♦ , * 0 1 QU I 0 • 

•» NlTNO 

’ • 'gen 

* • 


tble 

139 

U 1 40 



• leiHGLY » , *e • ^ • r • , • H • j »ETMYtt: » 

#»NE GLY 

•f *CUL 



TBLE 

140 

U 1 4 1 



• .fij.l * 

t • K J- 1 

f . • 

• 1 


tble 

141 

Ul*t2 



• tH2o • • ♦Hf , *2« , »0» , • * 

, »AATEH 

• f 

* p 


TBLE 

142 

U 1 43 



• .HE • , *H. ♦ *E ■ , • • , • * 

• ♦ HEL lUM 

♦ f 

* 1 


tble 

143 

.0 144 



• tVAf ’ V# t*A* , »C» , » ^ 

, t VACUUM 

• 1 t 

* 1 


tble 

144 

Li 1 4b 



• •HP.l • 

1 « HP-1 

f f 

* » 


TBLE 

I4S 

U 1 46 



• iHYo * t • N • , • Y * * * D • * • H YON AU » 

I*LIC FL 

• ,*UlD 

* f 


IDLE 

146 

Ul 4/ 



• tOKoNl T * 

t •ORONIT 

’ 1 *E 

* p 


TBLE 

147 

0148 



• f H2 q 6LY* , »0t ,*(,», *L* * ’ AAT« 

(•ER GLY 

. ,*COL 

* • 


TBLE 

140 

U 1 4V 



• •iS0ALC*,M»,*5»,*0**MSaPR0* 

i*PYL Al 

• , 'COHOL 

’ • 


TBLE 

149 

UlbO 



• iPHtON * » *f 1 » • R * , • ♦ 

, ♦fheon 

* * f 

* 1 


TBLE 

ISO 

Ul b 1 



• iG 02 S *G* * , *2S •«^AStOU* 

,*S OXYG 

• , ♦EN 

* p 


TBLE 

Ibl 

Ui b2 



• fML/H20^jM4,*L*»VS*MtTMAN* 

p tOL WAT 

* » ’ek 



Tble 

152 

Ulb3 



• iMMh % ♦ rtf , • H % • H * , • monome • 

1 fTHYLHY 

• **0«AZnE 

* p 


tble 

153 

0 1 b4 



• IN2Q4 • , ’N* , ♦2* , *0< , »N| THOG» 

I •ENTETr 

• i*AOXIOE 

* f 


TBLE 

154 

Ulbb 



• iLH 2 S^Lf »«2* I *Ligul0* 

!♦ hydro 

• ,*6EN 

• f / 


tble 

15S 

Qlb6 



0ATArTAdMEDUJiK-l27|l5Hl/ 





tble 

156 

UlS/ 



• fGH2 » 1 > ’H* 1 *2* , •GASEOU* 

|fS hydr 

• »*ogen 

' p 


tble 

157 

U|b8 



• «COoL ♦ ,*C» ,*0« , .Q* , ' • 

1 « COOLAN 

' , ‘OL 

’ f 


tble 

IBS 

U 1 b9 



• fTHfC SMf • , * TRICHL* 

1 •ohetml 

. , »enE 

• » 


TBLE 

159 

0 1 60 



• tPH^S • •P«ESER< 

f ( VATI VC 

* , • OIL 

♦ p/ 


TBLE 

1 60 

U 1 6 i 

LND 






TBLE 

161 

P^U 1 62 

1-UNTAb pHOc 





tble 

162 

0 163 

C 

• • 






••tble 

163 

0 164 

c 

• 

fuNCTlONAL CoUL PROCfcliORt TABLE 




• tble 

164 

0 1 6b 

c 

« 






• tble 

165 

0166 

c 


TmE aHNAY • f fUCOTA * » CONTAINS 

The VAHIOUS rUNCTlONAL 

COOES 

• tble 

166 

016 7 

c 

* 






• TBLE 

167 

0 168 

c 

• 

VAN 1 able 

l)EF iNl T lON 



• tble 

16fl 

0 169 

c 

• 






• tble 

1 69 

o 1 /O 

c 

« 






• tble 

170 

^17 1 

c 

« 

nucqds the numbeh or functional 

CODES 

APPEARING 

• tble 

1 7 1 

0 1 72 

c 

• 

IN THIS 

table 




• tble 

172 

OJ 7 3 

c 

• 






• tble 

173 

0 174 

c 


H00T1NE5 That use 

F UNTAB 

PHOC 



• tble 

174 

U J 7b 

c 

• 



• • • • 



• tble 

175 

U 1 76 

c 

• 

hEaOR 4 ANl> S0WT4 




• tble 

176 

0 17 7 

c 

• 






• tble 

177 

0 178 

c 

« *4 






♦•tble 

174 

01 79 



Dimension FucoTAibot 





tble 

179 
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PROCEDURE TABLE ( Continued) 


U 1 6U 


NuCOdS ■ 9 


TBLE 

IBO 

Ulti 1 


0»T* FUCOTA/.VAC PU*,* »,*VACUUM»i‘ PUMP 

• . 

TBLE 

181 

0 182 


• fREFR16* , tHEFRlG* , 'EH aTIO* 1 *N EOO I • , * PMENT 

f j,. 

TBLE 

182 

UI83 


• *SEHVIC» 1 'SERVIC* »• INC E « » * » U I P ME N * » * T 

*• 

TBLE 

183 

U 1 8H 


• ♦PNEOMA* , 'PnEUMA* t‘TlC £ « * i • U I PMEN ' » * T 


TBLE 

18*4 

016b 


• .TESTCH* ,*TEST-C» ,*HECKOUt , IT E90|»,IPHENT 

•• 

TBLE 

185 

0 166 


• iHANOL£% *HANDL1 • I 'NO EOU • f • I pHENT S • 

• » 

TBLE 

186 

0187 


• lACCESS',' '•* ACC*,»ESS »,• 


TBLE 

187 

U 1 6B 


• fTHANSP4,» T % •RANSPO • 4fiTATiO^ f *N 

% 1 ... . 

TBLE 

186 

U 1 69 


* I6AS0ET* ,*SaS DC* ,*TECTOHi ,» EOUtP'i’MENT 


TBLE 

189 

U1 9U 

END 


TBLE 

190 

PEUi 9 1 

CLA 

SCO pROc 


TBLE 

191 

01 92 

C • 



•••♦TBLE 

192 

U 1 9 J 

C • 

Class code procedure table 


• TBLE 

193 

01 9*4 

C • 


... .. 

♦TBLE 

19H ^ 

U 1 9b 

C ♦ 

ThE array *4cLAC00»* contains the various CtASS CODES 


*tble 

195 

U1 96 

c • 



- iTBLE 

196 

U 1 9 7 

c • 

variable definition 


• TBLE 

197 

U 196 

c * 



• TBLE 

196 

0 199 

c • 



• TBLE 

199 

0200 

c • 

«j 0 C 0 DS the number or class cooes appealing -IN- 

-•TBLE 

200- 

0201 

E # 

THIS table 


• TBLE 

201 

U2o2 

c ♦ 



• TBLE 

202 

02o 3 

c • 

ROUTINES That use clascd proc 


• TBLE 

203 

020*4 

c • 



• TfltE 

209 

U2ub 

c • 

HEaDrS ano sorts 


• TBLE 

20S 

U206 

c • 

• ’ 


•TBLE- 

20A- 

0207 

c • 


207 

U206 


DiHEnSION CLACOOOai 


TBLE 

206 - 

0209 


JuCOos ■ e 


TBLE 

209 

U210 


0*TA CLaCOJ/iI ifiSTAGE * t • S TSTEM i i • S •, 


TBLE 

210 

U2 1 1 


• »2 * , *PATL0A» 1 *0 HO0U«»*te •* 


TBLE 

211 

02 1 2 

.. — 

* fj- »|* EK*i*PERIMEi»*NT *1 

— 

?BL€— a fe-- 

0213 


• M ' , • ' 1 • TEST I I* • , 


TBLE 

213 

U2 1 H 


• IS *, ’FACTOR! 1 *T t, 


. .. TBLE 

2U 

02 1 b 


• !6 ■ *t!<ise TE»,*ST SUP!|»P 0 RT !, 


TBLE 

215 

U2 1 6 


• »7 • , ‘PaCTOR! f 'T S TCt|»ST S 


TBLE 

2U 

1 7 


• !8 ',!FaCi T*,!tST S «*!|.A>JNChV 


TBLE 

217 

02 1 b 

ENU 


TBLE 

216 - 

PtU2 1 9 

USLOCT pROc 


TBLE 

219 

U220 

c ♦ 



••••TBLE 

220 

022 1 

0 * 

Use location procedure table 


• TBLE 

221 

0222 

c ♦ 



• TBLE 

222 

u223 

c • 

ThE aRRaT ••plTaB'! contains the various use location 

mahcs 

• TBLE 

223 

022*4 

c ♦ 



— 

•TBLE 

22 9 — 

U22b 

c • 

variable definition 


• TBLE 

225 

0226 

c ♦ 



• TBLE 

226 

022 7 

c • 



• TBLE 

227 

U226 

c • 

LOCoD THE number OF USE LOCATION CODES 

• TBLE 

226 

U229 

c • 

APPEARING IN ThIS TABLE 


• TBLE 

229 

U23U 

c • 




... •TBLE 

230-^ 

0231 

c • 

ROUTINES that USE USLOCT PROC 


♦ TBLE 

231 

0232 

c • 



• tble 

232 

0233 

c • 

hEaOr7 and sort? 


• TBLE 

233 

023*4 

c • 



• tble 

239 

023b 

c • 



••••tble 

235 

0236 


dimension PltASi luol 

— 

— tble 

2 36-- 

023 7 


LoCOq ■ 10 


tble 

237 

0236 


OaTA PLTAB/’kSC •,•!(*, ‘S', * *,!RENnEO! ,!T CENT’ 

1 tER 

tble 

23b 

0239 


* *HSFC *,!S*,!F»,» HA* ,’RSHaLL* ,! CENTE* 

,tR 

*, tble 

239 
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PROCEDURE TABLE ( Continued) 


J 


• »«rP ♦ , 'M* , • T • , 'HISS t S* , *st ppl ','TEST Fi.iaCLITV 

^ • 

TBLE 

2Ha 



• 'sOF * , 'S’ , »D' t ’SFSttH’ , • OEVEL'.'OP, PA'i'CIUITY 

* # 

TBLE 

2N| 

U2H^ 


• space*, • OIVIS*,t|ON 

* t 

TBLE 

2**2 

U2*4 J 


■ * • ♦H* , *B* , *MOaC-«'* • *t) HUNT* , MNGTON* ,fBEACH 

* » 

TBLE 

243 

** S 


• 'Hfl* ’ , *M' , 'f ’ , 'MANUFA' 1 'CTUrI N* , • Q FACI'.'LITY 

^ 1 

TBLE 

24M 

U2HS 


• *»’C*,’P*,* *I*CAN06A*,* park *,* 

* » 

TBLE 

245 

02H6 


♦ »*1AF * , 'h* , • a* * *mIcHOU* , *t) AS5E*,»MBLY r*,*AC* 

* 1 

TBLE 

24A 

u2^ ; 


• *(nSC *,*M’,*5 *i* * , »HOUsTO* , »N C£NT*»*ER 

♦ •/ 

TBLE 

247 


tNO 


TBLE. 

24B 

PLU2 H9 

P«0(iKM pROf 


TBLE 

249 

J2L> J 

C • 



• TBLE 

2S0 

U2bl 

c • 

pRbci«AM NAKLs PKOCEOORt TABLE 


• TBLE 

2Sl 

U2S2 

c • 



• TBLE 

252 

U2b J 

c • 

TmE a*^R*Y tiAGENOU** COmTaINS ThE various GSE PROGRAH NAMES 


• TBLE 

253 


c • 




• TBLE 

254 

u;!bS 

L • 

routines That use progrm proc 


• TBLE 

255 

g2b6 

c • 



*IBUE 

25A 

U2b/ 

c • 

MASTLH 


• TBLE 

257 

U2bb 

c • 

SORTi 


• TBLE 

258 

uVbV 

c • 

’ 


• TBLE 

259 

U26U 

c • 


• • i 

♦ TBLE 

260 

U^6 1 


0 1 MLnS I ON AGr:NUU ( ) 2 ) 


TBLE 

261 

U262 


UaTA AGENDO/ tSATUHN *, * • 


TBLE 

262 

U26i 


• 1 t skylab * , • * 


TBLE 

263 

U26H 


♦ , • SHUT TL * , • t • 


TBLE 

264 

lJ26b 


• , » HE AO * , * * 


TBLE 

2«5 

02^*- 


• • ♦SOKTl E* , * LAa * • • , " 


TBLE 

266 

U26/ 


• ,fUNKf>IOrt*,*N •/ 


TBLE 

267 

U/26B 

tNO 


TBLE 

268 

PtL»26V 

£«UIV PkOC 


TBLE 

269 

U27U 

c 


» • « 

t*TBLE 

270 

U2 7 i 

c 

** EgulVALtNCt •»5 TAUhLnT procedure table 


• TBLE 

271 

U272 

c 



• TBLE 

272 

U2 7^ 

c 

The ARf’AT **rtURUS** IS dimensioned for all the GSE ATTRIBUTES 


• TBLE 

273 

U27H 


That pertaIn to an ei number on a record in the data base file 


• TbLE 

274 

U2/b 

c 



• TBLE 

275 

U2 7b 

c 

**lwOR[)S*t establishes the number of words |GSE ATTRIBUTES! PER 


♦ TBLE 

276 

U277 

t 

RECORD TO BE PrITTEN On ThE MASTER UATa BASE FILE 


• TBLE 

277 

U2 7b 

c 



• TBLE 

278 

U//V 

c 

ROUTINES That use eouiv p.roc 


• TBLE 

279 

0^ j 

L 



• TBLE 

280 

U2U 1 

c 

hAb TtH 


• TBLE 

281 

U2U2 

c 

update 


• TBLE 

282 

U2UJ 

c 

SOrf T i 


• TBLE 

283 


c 

50RT3 


• TBLE 

264 


c 

SORTH 


• TBLE 

285 

U2ab 

c 

SORTS 


• TBLE 

286 

u2 8 7 

c 

S0RT6 


• TBLE 

287 

u 2 B 8 , 

c 

SORT? 


• TBLE 

268 

U2faV 

c 



■ TBLE 

2B9 

L2VU 

c 


• • • 

• TBLE 

290 

U2 9 I 


Parameter Jworos«26b 


TBLE 

291 

U292 


uimenSIon wundS i I words ) 


TBLE 

292 

U29 J 


tuUlvALLNCL (».0«OSin,NpPoi,(WOKDS(2l,E|NuM(nl|(WORDSl5l,NCOOE», 

[TBUE 

293 

U29H 


•W0RUS<^»»MCD»,lft0RDS(7!,gUAN»tIW0R0SUI,SlTLEcl)!, ( WORoS 1601, 

DEScTBLE 

294 

U2 Vb 


•ONtl )>,lwOR05(B2l,USLOCtn!,|WoHDSMu0l,APD0Cln>,IW0R0Sfl2H> 

1 

TBLE 

295 

U296 


♦ pRUGMIlli ,<wOHDS(»26!,NLlNE5!,(w0RDSn27!,DATEIlM,IW0R0TBLE 

296 

02V 7 


«S(129),mE 0U(] U ,1waKD^(lMl!.WGHT},(W0R0S<n2},LNGTH),U0RDS(M3! 

iTBLC 

297 

U29*» 


♦wiDTHJ*<WoRDsnHHl,HuHT»^(woR0S«lH5!,uNCSTM!>tlW0RDS<Mej,FCTCDe)TBLE 

298 

U29V 


• ,1*o«DS( l'*9i .TITUEI n 1 


TBLE 

299 

0 JUO 

LND 


TBLE 

300 
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PROCEDURE TABLE ( Concluded) 


1 

CONON PrOC 


tble 

30t 

U3U2 

C 



►•tble 

302 

U3Q3 

c • 

•f Common statement 

PROCEDURE TABLE 

• tble 

303 

030*4 

c • 



• TBLE 

304 

030b 

C 9 

This table alLO*s for 

A convenient area in the program that rill 

• tble 

30S 

0306 

c ♦ 

enaolE each routine to 

ACC4UIRE THOSE PROgHAH VARIABLES |N 

• tble 

306 

.U307 

c • 

mcommon** That it needs 

• TBLE 

307 

030ti 

c • 


. 

• tble 

308.^ 

U3CI9 

c • 

VARIABLE 

definition 

• TBLE 

309 

U3 10 

c • 



• tble 

310 

031 1 

c • 



• tble 

311 

0312 

c • 

NPKO 

PROOKAH CODE 

• tble 

312 

U31 3 

c • 

t INUM 

END ITEM number 

• TBLE 

313 

U3 t H 

c • 

• - TUuE 

description - - - ... 

• TBLE 

314 _ 

U31S 

c • 

UtScON 

0ESI6N responsibility 

• TBLE 

315 

U316 

c • 

NCOoE 

CLASS CODE .... 

• TBLE 

316 

0317 

c • 

QOAn 

QUANTITY 

♦tble 

317 

0316 

c • 


WEI6HT 

• tble 

318 

U31f 

c • 

HOO 

STA6ENAHE 

• tble 

319 

U320 

c « 

USLOC 

USE LOCAYION - 

• TBLE 

120 - 

U321 

c • 

FCTcOE 

functional CODE 

• TBLE 

321 

0 J22 

L ♦ 

LN<,tH 

length 

• TBLE 

322 

L3i3 

c • 

6 lUTH 

M 1 OTH 

• tble 

323 

ti J2*t 

t ♦ 

HGMt 

HEIGHT 

• tble 

324 

U32b 

c * 

UNCsT 

UNIT COST 

• TBLE 

325 

0326 

c 

MfeO|A 

fluid media 

• tble 

326 ^ 

0327 

c ♦ 

APJoC 

applicable OOCuHENT 

• tble 

327 

U32S 

c ♦ 

SITlE 

ouhhy vahiableinot useoi 

• tble 

326 

0329 

c • 

date 

date 

• tble 

329 

U330 

c ♦ 

PNOgM 

PROGRAM title 

• TBLE 

330 

0331 

c • 

NUInCS 

THE number of LINES OF DESCRIPTION 

• Tble 

331 

0332 

“ c • 

NPA(5E ' 

PAGE count - 

• tble 

332 - 

U333 

c • 

LA&o 

line counter 

• TBLE 

333 

U33** 

c ♦ 

OATx 

INPUT date 

• tble 

334 

U33b 

c ♦ 



• tble 

335 

U336 

c ♦ 

hootines That use comon p«oc 

• TBLE 

336 

0337 

c ♦ 



• tble 

337 

0336 

c • 

ALL ROUTINES EXCEPT HEADS 6 mERQE 

• tble 

338 

0339 

c • 



• tble 

339 

O3S0 

c ** 



••tble 

340 

0341 


Real media 


tble 

341 

0342 


Integer quan,6Ioth,hght pWght 

tble 

342 

0343 


COHHoN nPROiEINUHI Jt .NCOOE • HOO, 4U*N| Si TLE < 72 I , OE SC ON ( 2 ) 

tble 

343 

0344 

■ - 

CoMHqN uSlOCi |B) , 

AP00CU4I fPROGMiai t NL 1 Nt S , DATE I 2 1 

—TBLE 

344 

U34b 


CoHHoN MEDlAl 1 2t ,WOHT, 

LN6TH,WIOTH,H«HT,VNCSTOI , FCTCOE 

TBLE 

345 

0346 


CoHHoN TlTLEf |20) .0ATXI2I ,NPA4e,LA0D 

tble 

346 

0347 

END 


TBLE 

347 
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SUBROUTINE UPDATE 


1 

C 



1 

2 ' 

c • 

SUbHUuTInE -this routine updates the master data mle 

WITH •UPOT 

2 

3 

c * 

The NErt INPUT information supplied BT The PROdRAM analtst 

• UPOT 

3 

*< 

c 



4 



Su^iNoUT 1 Nt UpDATC - • ^ 

UPOT- 

5 

6 


Include comon 

UPOT 

6 

} 


Include e^uiv 

UPOT 

7 

B 


Integer h 

UPOT 

a 

9 


D|NtNbIuN LJWoHOSI 1 WORDSj 

UPOT 

9 

lU 


Data nChD/ f % • / 

UPOT 

10 

1 1 


Data nckI /u »/ ■ - 

■ UPOT 

1 1 

W 


Data n C h 2 / « 2 • / 

UPOT 

12 

i J 


Data nChH/Mi/ 

UPOT 

13 

i H 


Data ncha/«*i/ 

UPOT 

14 

lb 


OaT* blank/* 

UPOT 

15 



Hm2 

UPOT 

I6 

1 7 


. Nr»2 . 

UPOT 

17 

1 B 


Nt 

UPOT 

la 

1 V 


Nc A My wO 

UPOT 

19 

2(J 


NtOT.O 

UPOT 

20 

21 


NnO at A«0 

UPOT 

21 

22 


NoOAtA*U 

UPOT 

22 

23 


NuDAtA»U 

UPOT- 

23 

24 


RLWInD i 

UPOT 

24 

2b 


RtWlND 2 

UPOT 

25 

26 


«E6InO 3 

UPOT 

26 

27 


RtWiND 4 

UPOT 

27 

2B 

c 


UPOT 

2r 

2V 

c*«« 

• ♦Head tape data from file i , 

. - ~ UPOT 

29 

30 

c 


updt 

30 

31 

10 

H£ADf lf£KH"9 0i£ND«30 1 VVOPOS 

UPOT 

31 

32 


NoUT«3 

UPOT 

32 

33 


Ah 1 Te < 3 |EHKp9 1 I60RDS 

UPOT 

33 

34 


Cio To 10 

UPOT 

34 

3b 

3U 

Continue 

UPOT 

35 

36 


N*. INeS- 1 

UPOT 

36 

3/ 


Do 3j Kp/,| 2 o 

UPOT 

37 

3d 

33 

T 1 TLE l»^l*dLANK 

UPOT 

3S 

39 


Oq 34 K«13«2h 

UPOT 

39 

4U 

34 

ApDOc 1 K } PbL A nK 

UPOT 

40 

H 1 


OaTE ( 1 lptiLA»'’K — - ........... 

UPOT 

41 

42 


DaTE ( 2 > -blank 

UPOT 

4? 

43 

C 


UPOT 

43 

44 

C • • « 

'•♦Read input oata fron card format 

UPOT 

44 

4b 

c 


UPDT 

45 

46 
4 7 

c 

'♦♦Read card type i 

UPDT 
- UPOT 

46 

47 

4d 

c 


UPOT 

40 

4V 


NcARo^NCARD^ t 

UPDT 

49 

bO 

3b 

ReAD(NR»20D»EHR*9b«£ND*65)NCR«NPH0|ElNUH|(T{TLC(niI«li61 

UPDT 

SO 

bl 

200 

FoRMAT(ll«2x,n«2Xff2A6iAl|2X|6A61 

UPOT 

51 

S2 


If (N cR«NE* 1 >&0 TO 95 

UPOT 

52 

b3 

•' • •'* — 

If <HpH0iE4i iU)NH«2 


5} 

bH 


If iNpROtEMfU) (iO TO BU 

UPDT 

S4 

bb 

36 

NC ARD"NCARD^ 1 

UPOT 

55 

b6 


Nf LA g«0 

UPOT 

56 

b7 


Read ( R i20i iErr»95 iEno^bb incr 

UPDT 

57 

bd 

201 

FqRMaTI A l ) 

UPDT 

sa 

b9 


lFlNc«*t9iNCRDMaO TO 4 O - - 

UPOT 

59 

60 


IMNcRttW,NCH2lG0 TO 4 b 

UPDT 

60 

61 


If incR#n£*ncr21go to 95 

UPOT 

61 

62 

C 


UPOT 

62 

63 


♦•Read contiuation of caRo i 

UPOT 

63 

64 

c 


UPOT 

64 
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SUBROUTINE UPDATE ( Continued) 


65 - 

66 
6 / 

68 

6^ 

;o 

7 I 

72 

73 
7H 
7b 

76 

77 

78 

79 

au 

81 

82 

83 

6S 

8b 

86 

87 

88 

89 

90 

91 

92 

93 
9H 
9b 

96 

97 
96 
99 

IDU 
101 
102 
103 
lOH 
JOS 
106 
107 
toa 
lOV 
1 10 
1 1 1 
1 12 
1 13 

1 n 

Hb 
1 I 6 
117 
1 18 
I 19 


^0 


202 



20** 


C 

c 

bo 


60 


20b 


70 


C 

c«* 

c 

90 

too 

99 

91 
101 


Nj«Nl lNtS#6*l - 

rt J»NL I N lS#64a 
lFlNLlNtS*<iT.l9)G0 TO 9e 

R£AD(0i202,£RR-9b»£ND-8&) IT|TL€( Jl • 
f qRMaT ( 2 U »6A6 1 
.NLiNfS « NUnES ♦ I 

bo To ^6 


•ReAO CAKO TYp£ 2 

HEaDIu i203 ,£«K*95 itNO-a&lDCSCONiNCOOt iMOD 

Format <3X ,2A6 I 2X* I I |2)1|A2 # 2 X 1 *^, 2 X 1661 

• Rg;AD CARD TYpE 3 
Nr AR o"MC ARO * 1 

KtA0jR#20*l#tRR*9b#EN0«8si NCR i USLOC 1 7’CTCOC , LN6T H , il 1 DT H « HgHT # UNCSt # 

• MEolA 

I^oRMaT ( 1 I t2x , IbAl #2Xf *6, 2K #AR#2Xf Jx lAH,2X»a*6f Al f 2X »| 2Al> 

ncRCk»ncR*i 

If<NcR*NE.3)gO to 9b 
•ReAO CARO TYPE H 


Nc*Ho"NC*RO* j - - 

Nr«2 

KeAU(R»20UCRR>B2tCN0ae2>NCR 
tF(NcW*t«*NCRH)<iO TO 60 
JF<NcRCK»eO.NCRM » SO TO ?S 
If (NcR>CQ«NCrA IliO TO 70 

If (NcR»t«I.NCR| >NR»0 - - 

If (N c'<>£'^<'^CR> )rcaro«ncaro-i 

lF(Nc'<<C^*'^CRi >60 TO BO 

OO To 

Jm 1 
K.I2 

READ(0i2O&»bRRBfS»EN0>asiNCR| lARDOCUil 1«J|KI 

foRMAT<Al,2X,2A6* |,X , 2 A * , I K * 2 A* * I A , 2 A* , I * 1 2 AB » I A , 2 A* ) 

NcRCa«6LANK 

bo To bo 
^>13 

Km2H 

RCA0(Ot2ObtiRRa«&iENDaeB)NCRf(APOOCUMl"JtKi- 

bo Tq 60 


UPOT- 

UPOT 

UPOT 

UPOT 

UPDT 

UPDT 

UPDT 

UPOT 

UPOT 

UPOT 

UPDT 

UPOT 

UPDT 

UPDT 

UPDT 

UPDT 

UPDT 

UPOT 

UPOT 

UPOT 

UPOT 

UPDT 

UPOT 

UPDT 


65 

66 

67 

6a 

69 

70 
7 I 

72 

73 
79 

75 

76 

77 

78 

79 

80 
6| 
62 
63 
89 
85 
66 
87 

68 


UPDT. 69 
UPDT 90 


91 

92 

93 
9R 

95 

96 

97 

98 

99 


UPDT 
UPOT 
UPDT 
UPOT 
UPDT 
UPOT 
UPDT 
UPOT 
UPDT 
UPOT 100 
.UPDT - 101- 
UPOT 102 
UPOT 103 
UPDT lOH 
UPDT 105 
UPDT 106 
^UPXIJ— 1.07- 
UPOT 108 


•Error messages 

«rITeU#1UU) 

FqRM A T 1 I H I I /// • ♦••error wHitC READING IMpUT f Mt I ••6A,r/- 

« I •^•ExeCtTiON terminated#***! 

STOP 

6rITe( 6# lUl I nOUT 

FoRmaK IH^,///* ••♦ERROR ilfHlLE WRITING ON OUTPUT FILE ♦iMf 
• #••,»,/• •••execution terminated*##*! 

GO To 99 — 


UPDT 109 
UPDT 110 
UPOT 111 
UPOT 112 
UPOT 113 
UPDT IM 
UPOT 116 
UPDT 116 
UPOT 117 
UPDT Its 
UPOT 119 • 
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SUBROUTINE UPDATE (Continued) 


1 

9b 

CuNT |NUt 




updt 

120 

1 / i 


If i NfLA(j » 1 TO 3U 




updt 

12l 

1 


I^F L Agb 1 




updt 

122 

12 J 


N«*2 




UPDT 

123 

i 2^ 


IflNcAR0*t’^»MANU.NCRttQfO*AND#ElNUM|2UEQf 

olankigo 

TO 3U 


updt 

12H 

1 2b 


6^1 Tf 102 )mCARI) 




UPDT 

I2S 

i 26 

102 

FoRMaTI/* •••error WHILE REAOMG INPUT flL£ 

2#** */» 

• **0 AftO 


updt 

126 

127 


• IM, « IS OUT or OHOeR OH 15 PUNCHED 1 NCORRECTLUPOT 

127 

I2ii 


• r«»* * 1 




UPDT 

1 2R 

12V 


neHMoR ■ nMroR ♦ 1 




UPDT 

1 29 

1 3U 


If M eRRORiGI . 30JG0 To 96 




UPDT 

1 3d 

131 


Gu To 3(J 




UPDT 

131 

132 

96 

WkITeM, 103» 




UPDT 

1 32 

133 

103 

f ORHaTUHI ,///• -•••EXCtSSlVE INPUT ERRORS* 

EXECUTION 

terminated***upot 

133 

1 3H 


•* 1 




UPDT 

1 3h 

1 3b 


<•0 To ’V 




UPDT 

1 35 

1 36 

97 

WrUe M . IU5 1 




UPOT 

136 

13/ 

1 Ob 

FqRNaT 1 iHi *///• ••♦ERROR #<HILE READING INPUT flLE 3 

*••*«/ 


UPOT 

137 

»3ti 


• • •••EXECUTION TERMINATED**** » 




updt 

13B 

139 


Go To 99 




UPDT 

139 

i HU 

ve 

Wr 1 If I 6 * 1 2 1 1 E 1 NUM 




updt 

INO 

IHl 

121 

fqrmaTi///* •♦•more than 20 lines of description associated 

with 

updt 

1 HI 

1H2 


• El No* *2 a6,a1**, E^XECUTION C ON T J NU 1 NG* • ♦ # ) 




UPOT 

M2 

1H3 


Gy To 30 




UPOT 

1 H3 

1 HH 

c 





UPOT 

MH 

Mb 


••WRlTe INPUT oATa on file 3 




UPOT 

1 HS 

M6 

c 





UPOT 

M6 

1 H / 

HO 

NqUT .3 




UPDT 

M7 

1 H8 


AKlTE(3,EKHa9l ) WORDS 




UPOT 

1 HR 

MV 


Go To 3U 



■ - 

UPOT 

1 H9 

IbO 

62 

NOUT-3 




UPDT 

1 bO 

Ibl 


Wr 1 Te 1 3 ,EKR>9 1 )«*OKOS 




UPOT 

Ibl 

Ib2 

C 





UPDT 

lb2 

1 bi 

C***6*ALt iNPuT OATA HAS BLtN READ ANO MERGEO^ •• 

•begin sorting 


UPOT 

153 

MH 

C*6* 

••Generate a gqoo data base file <file hi 




UPOT 

IbH 

1 bb 

c 





UPDT 

1 bS 

lb6 

HS 

Continue 




UPDT 

156 

M7 


EnO file 3 




UPOT 

1 &7 

MB 


«E*InO 3 




UPOT 

IbB 

IbV 


Call hs/w i j wqros ) 




UPDT 

159 

16U 


calc kcta (2>)S 1 loe I « A' * • a> . n 




UPDT 

UO 

1 6 1 


CaI,L KET*M«e,3b|72,*A',*A»»a> 




UPOT 

161 

162 


laLL SRTOPN 




UPDT 

162 

163 

H3 

KiA0f3*LRR«'-97#END»BH)w0K0S 




UPDT 

163 

16H 


Call srtkeli aORoS) 




UPOT 

|6H 

1 6 b 


G 0 To 9 3 




UPDT 

165 

166 

6H 

Call grtsht 




UPDT 

166 

1 6 / 

H9 

Call srtket ( v^ords** i6u) 

- 



UPDT 

167 

1 6B 

HI 

CONT T NUE 




UPDT 

168 

16V 


lf10ATL(lMEQ.aLANK.AND,0ATE<2UE0tSLANKIG0 

TO B6 



UPDT 

169 

1 7U 


l >0 To Ibi 




UPDT 

170 

171 

M2 

NmDAtA-nNUAT A* I 




UPDT 

17 1 

172 


ii^ORnbl I2 /MdATX( 1 1 




updt 

172 

173 


Of.ORnbl 1 2B 1 -oATX i 2 I 




UPOT 

173 

1 7H 


Go To i bS 




UPOT 

I7h 
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SUBROUTINE UPDATE ( Concluded) 


1 7b 

153 

NtOT*NToT+ 1 



UPOT 

176 


NqUT.M 



UPDT 

177 


Wr 1 Te ( 9 *£KH-y 1 1 WORDS 



UPDT 

1 7ti 


5o To 89 



UPOT 

17V 

86 

CCJUT INUL 



UPOT 

1 8Q 


Do 87 I - 1 , 1 Words 



UPOT 

1 B 1 

87 

UivORdSC 1 )««0ruS 4 i ) 



UPDT 

182 


CaCL bKTHi-T (AOROS.tt&l ) 



UPOT 

163 


Uo B R 1 ■ 1 1 3 



UPOT 

1 6H 


1 F ( DhORuS ( ]* 1 ) •Ne>e JNUHl 1 M<>0 ^0 l&O 



UPOT 

10b 

88 

c 0 M ^ t 




UPDT 

1 06 


If lOwORob U ) ,&g.O)NDDATA»ND0ATA4| 



UPOT 

187 


If 1 UwORub 1 i 1 .tW*0 J 60 TO 89 



UPOT 

i 88 


OaORqS 1 1 27 J -data U 1 



UPOT 

1 6V 


OnOHoSC l28)ii0ATX(2| 



UPDT 

1 VO 


NuDAtA«NUUAT.a^I 



UPOT 

1 VI 


NtOT.NToT^I 


- • 

UPOT 

192 


NoUT 



UPOT 

1 V3 


Mr 1 T£ 1 M t&KHB9l IDWOHOS 



UPDT 

1 9H 


6o To 89 



UPOT 

1 9b 

ISO 

CoNT INUE 



UPOT 

196 


OaORdSI 1271-DATAI 1 1 



UPOT 

197 


O^ORoSt 128 )sqATx (21' 



UPOT 

198 


NnOATA*NNDATa*1 



UPOT 

1 99 


N TOT.NTuT ♦ 1 



UPOT 

200 


NoUT.H 



UPOT 

2U1 


WH 1 Te ( f LRR-91 1 DWORDS 



UPOT 

202 


*0 8 i 



UPOT 

20 3 

151 

CuWT iNOE 


. „ 

UPOT 

2UH 


If < UaT£ 1 n • tg.aLANK. AN0.0 aTE( 2> *E:a«BLANKl60 TO 

152 

UPOT 

2Ub 

15b 

NfOT.NToT* 1 



UPDT 

206 


NoUT.*) 



UPOT 

20/ 


WRlTel9,tNH«9l lUWONOS 



UPOT 

2U8 

uu 

CoNT 1 NUL 



UPOT 

20V 


EnO fIUE s 


... 

UPDT 

2IU 


WRlTt(6»lO7)NNDATA,NUOATA,RO0ATA»NT0T 



UPDT 

2 1 1 

107 

FoRtlATt//' •»*6SE attribute OATA FILE 

HAS BEEN 

UrOATEO**** 

UPOT 

212 


• / 1 X • 19 1 • NgW tNT 1 T lES* , 



UPDT 

213 


• / ixtiMi* Updated entItiess 



UPDT 

2 1 9 


• t iK.iHM deleted entities*, 



UPDT 

21b 


• / ixtiRt* Total entities used ourins 

This «un* i - 

-UPOT 

216 


ReTUrN 



UPOT 

217 


CnO 


-- 

UPOT 


175 

176 

177 
I 70 
I 79 
180 
18 1 
182 
183 
IBM 

IBS 
166 
I 67 
I 8n 

189 

190 
| 9 | 

192 

193 
|9m 
I 95 

196 

197 
I9fl 

199 

200 
201 
202 
203 
2UM 

205 

206 
207 

2ue 

2U9 

210 

211 

212 

213 

218 

2U 

2U 

217 
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; Reproduced from 

SUBROUTINE WGTMET I ^ 


1 

C • • 


• ft- G M T 

1 

2 

C • 

SUBROUTINE 65TMET -THIs SUOkOUTlNt CONVEHTS ThE HEIGHT UNITS TO 

• Kr G H T 

2 


c • 

kilograms From pounos 

• lY G M T 

.... 3, 

H 

c •• 


• ft G M T 

4 

S 

c 


ft GMT _ 

5 . 

6 


SUrtWOUTlNF iV^jtMETl IaThETTiwTI 

mGHT 

6 

7 


0 I Mt NS 1 ON 1 A ( 6 1 

ftGM T 

7 

B 

c 


ft G M T 

H 

9 

C**#»*fLn 15 A LIHKARY F UN C T l.UN ..T 0 .00 T A 1 N^.B iT S FHOH ALPHANUMERIC NU MO E R S (jM T 

9 

10 

C 


ft'GMT 

10 

1 i 


1 1 M aFLD I 0 . 6 ^ 1 ft T J . . _ - 

ft^aMT _ 

1 1... 

] 2 


l6(2]-FLDr6|6«r6T) 

ftGM T 

12 

1 ^ . 


J^M3l«FLnfI2,6,lAT) 

ftGMT 

I 3 

i H 


1 vn 4 1 a F L D C 1 6 * 6 , 1 A T ) 

ftGMT 

1 4 

15 


I iv ( 5 1 a F U 01 2 4 , 6 , 1 « T ) 

V.GMT 

i 5 

\ 6 


] .‘M 6 1 a F L □ C 3 0 , 6 * 1 A T > 

ft GMT 

1 6 

J 7 .. 


lADO-0 ... . 

ftGMT . 

|7._ 

1 8 


DO 1 K« 1 ,6 

ftGMT 

18 

1 9 


1 F 1 I 6 ( K 1 .NE *5 ) 00 TO 7 

ftGMT 

19 

20 


1 ADO« 1 A0D4 1 

WGMT 

20 

2 1 


GO TO 1 

WGMT 

2 1 

22 

2 

J F U G 1 K 1 *EQ . 25 1 GO To 3 

ftGMT 

22 

23 


,IF( l6|K).E0tl9J GO TO .3 ' 

WGMT 

23 ... 

2H 

1 

CONTI NUE 

ftGMT 

24 

25 


I F ( I AOD •£« *0 1 GO TO 9n 

ftGMT 

25 

26 


I «0 

ftGMT 

26 

27 


DO 00 Jal.lADD 

ftGMT 

27 

28 


IF(I6{JUNE«5) GO TO a1 

ftGMT 

28 

29 


... I-Ul 

ft G M T . . 

2 9.„. 

30 

an 

CONTI NUE 

ftGMT 

30 

31 , 

. 8 1 

GO TO t91.92*93e94.Vb.3l.lAD0 

ftGMT 

31 . 

32 

f 


ftGMT 

32 

33 

C**4*»CALCULATE INTtfitW NUMREKCOEPENOtWCi On NUMOEH OF OIOITS) 

WGMT 

3 3 

IH 

c 


ftGMT 

34 

35 

90_ 

IHEAL»UA16l-H61^ClA(5l-Hfal*lD*(I6('*.)-‘tB)»IQD+nw|3J/a48)*lD0D^ 

. ftGMT... 

35„ 

36 


1 ( lA(2)-4a)*l00004[lr. ( \ 1-46)*ID000U 

WGMT 

36 

37 


GO TO 96 

ftGMT. 

3 7 .. . 

38 

9 1 

1HE:al«I IVH |+5l-90) + < lw( |♦4^•4a>♦lO♦(ny(J♦3)-4a)•lOO♦^IW^I♦2>•4Bl♦ 

ftGMT 

38 

39 


linoo^n*vii4l)-4Hj*ionnO 

ftGMT 

3 9__ 

^0 


G n T D 9 6 

ftGMT 

40 

4 1 

9 

)MtALaCM(I>41 *90 I ♦ < I ;V 1 I *3 1-40 I • 1 0 + ♦2.1-4 0 ) M OO^. U RJ.I * i ) • H 8 J__ 

. 


42 


1 • 1 cinn 

WGMT 

42 

43 


GD TO 96 

ftGMT 

4 3 

4H 

93 

INtAL*(lw(l^3l-40) + UwU*2l-48lalO^{|V<(i4n-40l*lOO 

WGMT 

H4 

4b 


GO TO 96 

ftGMT 

45 

46 

94 

IRfAUal 161 I*2)-4ai*(|w;(l + i )-4B)*lO 

ftGMT 

46 

47 


GO TO 96 

^WGMT 

V*7„ 

46 

95 

1 RE AL« 1 « 1 1 ♦ 1 1-40 

ftGMT 

4B 

49 

96 

HEAL-I REAL 

ftGMT 

49 

50 

C 


ftGMT 

50 


c*** 

•♦CONVERT REAL NUMBER Tft METRIC 

wGMT 

... 

52 

c 


ftGMT 

52 

53 


XATMET-KEAL*0«4535923T 

_WGMT 


5** 

c 


ftGMT 

54 

5S 


••CALL subroutine TO CONVERT HEaL NUMBER TO ALPHANUMERIC NUMBER 

ftGMT 

55 

56 

c 


WGMT 

56 

57 


call «ELALPUATMET*XRtMET.6> 

. V^GMT„ 

5 7 

58 


GO TO 999 

ftGMT 

58 

..._&9 

3 

|wTMETb|AIT 

ftGMT 

5 9 

60 

999 

RETURN 

WGMT 

60 

-AA 



.^WGM.I_ 

JiX 
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APPENDIX C. SUPPLEMENT RUN PROCEDURES 


PSfiClSDJNG PAGS BLANK NOT PILMEDi 



APPENDIX C. SUPPLEMENT RUN PROCEDURES 
(The Univac 1108 Run Cards) 


Before a run can be submitted to a computer operator at the Univac 
1108 remotes or at central site (Computation Laboratory) , two special 
computer cards must appear in front of all other cards in the card-deck 
runstream. They are simply referred to as Run Card No. 1 (Fig. C-l) and 
Run Card No. 2 ( Fig. C-2) . 

The following procedure should aid in completing these forms 
correctly: 


1. Punch Run Card No. 1 exactly as shown in Figure C- 1 except that 
keypuncher punches the first six letters of his last name in card columns 24 
through 29. If the name is less than six characters, the space should be filled 
with some arbitrary letters. 

2. Punch Run Card No. 2 exactly as shown in Figure C-2 on the 
preprinted green run card except for any comment. Note that one really needs 
only to duplicate Run Card No. 2 from Run Card No. 1 except card columns 

65 through 80 are left blank. 

3. Printed information must be added to Run Card No. 2 as shown in 
Figure C-2. Write ”32*’ for OORESIZE and "207” or "225" for BIN NO. Write 
RUN ” 1 of 1.” Mark an ”X” in the NO columns of PUNCH $ and PLOTS. 

Write the current tape number (4 or 5 digits) under INPUT TAPES. Remem- 
ber that these two cards precede all other cards in the runstream. 


pebceding page blank, not filmed 
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r 3RUN»//P sample;* AftAAAA)HAMEXXBINXYZf3j 200 . GSf DATA MANAGOieHT SYSTEM. A, 

I 

I 

I OOI Oil I 0 01 0 0 0 0 01 OODOOOl OODOI I OQOI I I I 01 (II I 0 0 0 0 0 1 0 0 0 0! OOOOODOOOOOf 01 M I 0 0 0 0 0 0 0 0 0 0 0 

, I 2 } 4 5 C M 9 101112 13 14 IS 16 1718 1*20 2122 23 Z4 2S 25 27 2E 23 30 31 32 U 34 3S)6 37 3ns 43 4H2 43 44 4541) 1/4! 49 30 SI S2 S3 S4SSSS 57 SB 59 CD SI B2 S3 t4tS6te?CS C9 29 7172 73 24 2(7(17 78 19 80 

11111 111 niM 11 1 1 1 1 1 1 j 1 1 1 1 1 1 1 m 1 1 1 11 m r 1 1 1 i n n 1 1 1 1 1 1 1 1 1 1 1 m i n 

I 

222222222 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 : 2 2 2 2 2 2 2 2 : 2 2 2 2 2 2 2 ; 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 : 2 2 2 2 2 2 2 2 2 2 2 2 2 | 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 : 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 : 3 3 3 3 3 3 : 3 3 3 3 3 3 3 3 3 3 3 : 3 3 3 3 . 3 3 3 3 3 3 3 3 3 3 ' 

^ 4 4 4 4 4 4 4 4 4 4 M4M4H 4 4 4 U 4) 4 4 4 4 4 H 4 4 4 4 4 4 M 4 4 4 4 MiI4i|< 4 4 4 4' 4 4 4 4 4' 444 4 4 4 4 4 4 444444444 

j 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 1 5 5 1 5 5 5 5 ! 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! 5 5 5 5 5 5 5 5 ! 5 5 ! 5 M 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ■ 

6 S 6 6 6 BOO 6 5 6 6 6 6 6 6 0 6 6 0 6 6 5 6 6 5 6 0 6 6 6 8 6 6 6 6 6 6 6 6 6 6 6 6 6 6 050660 0 6 6 6 6 0 6 6 6 6 6 6 5 6 6 6 6 5 6 6 6 6 B 0 6 6 6 6 

mill mi m mmmir 111 immiiiir iimimm mmmmmmm | 

8 6 6 8 6 6 8 3 6 8 8 8 6 8 6 8 8 6 8 1 6 8 8 8 6 8 8 8 8 8 f 6 1 6 1 8 6 8 8 8 8 1 8 8 6 6 8 8 6 6 8 B 8 6 8 0 8 8 6 6 8 B 8 8 8 6 6 6 8 8 8 8 6 8 8 ; 

9 9999999999999999939999999999! 399! 999999899993999999999939999999889999999993999 

; • 2 ^ i 5 6 J 8 no 11 [21314 15 !£ 17 iP 13 2i» 21 22 23 24 25 2B 2? 28 2S30 51 22 33 34 25 36 37 3833 40 41 42 43 44 45 46 4745 48 5(3 51 52 53 54 55 SS57 5J 5960 61 B2 63 £4 65 65 B7 68 S9 70 71 72 73 74 75 76 77 73 79 3D 

: 1 


Figure C-1. Sample Run Card No. 1. 





Figure C-2. Sample Run Card No. 2 
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